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DEVELOPMENT AND APPLICATION OF A METHOD FOR 
PREDICTING ROTOR FREE WAKE POSITIONS AND 
RESULTING ROTOR BLADE AIR LOADS 
VOLUME II - PROGRAM LISTINGS* 

By S. Gene Sadler 

Rochester Applied Science Associates, Inc. 

/ 

SUMMARY ^ ^ ^ 

Computer program listings are presented for two separate pro- 
grams , the wake geometry and the blade loads and response programs . 
These listings correspond to the calculations discussed in Volume 
I. 


INTRODUCTION 


Four steps are necessary in obtaining blade loads and response 
results including the effects of free wake distortions by gsing 
the programs discussed in this report. (1) Preliminary calcula- 
tions (or measured data) are used to define rotor system trim 
parameters and flight conditions; and definitions of model parame- 
ter and program control variables are necessary before program 
operation may begin. (2) A wake geometry calculation is then 
made to obtain wake-induced velocity influence coefficients for 
use in the blade loads calculation. (3) Blade natural frequen- 
cies and normal modes are computed for use in calculating blade 
response. (Steps 2 and 3 are independent, and their order unim- 
portant.) (4)- Given the wake program input for use in blade 

loads calculations and the frequency program input for use in 
blade response calculations, the blade loads and response program 
is then used to calculate blade airloads and dynamic response. 
Response variables calculated include blade shears, moments, and 
angular and linear deflections (.and their rates) as computed from 
the appropriate normal mode quantities and generalized coordinate 
magnitudes . 

The blade frequency program listing is not contained in this 
report since it was not developed under this contract and is a 
proprietary program. 


Program input and output is in English units. 


VOLUME I - MODEL AND RESULTS is contained in NASA Contractor 
Report CR-1911. 



INTEGER OUT * WKPT ,CNTR 
INTEGER T45.WW 

REAL mxyz,mu,mualt,muspk,mucat,musat,mudp,musdp,llnth,lnth,loadn, 

1LTMP,LSQ,MX,MY,MZ,MUCDP,MUSDS,MUCDS, 10, MB,LX,KXX 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


A (05t 20 ) 

ALE A1 102) 
ALFA2 ( 02 ) 

ALF AS (02 ) 

ALF AT ( 02 ) 

AO (02 ) 

ALPHAQ ( 02 ) 
ALPHAR( 02) 

AR ( 02 ) 

AT ( 5 ) 

A TMP( 5) 
8(005,16) 
BETA( 03 ,2 ) 

8T ( 5 ) 

8 TMP ( 5 ) 

C( 09) 

CCL A( 02 ) 

CHORD ( 02 ) 
DELTA ( 02 ) 
01(90) 

D IR ( 2 ) 

DLNTH ( 0 16 ) 
DNTH ( 005 ,016 ) 
DSQ( 0 L6) 

DT MP (016 ) 
GAMMA! 05,016) 
GAMMAG( 144) 
GAMMK( I ,016) 

I NDXG ( 16) 
10(02) 

KXXI02) 

LLNTH ( 020 ) 
LNTH( 05 ,20 ) 
L0ADN( 020) 

L SQ( 020 ) 

LTMP( 020) 

L X ( 02 ) 

M B (02 ) 

MUCDP ( 02 ) 
MUCDS ( 2 ) 
MUSDP(02 ) 
MUSOS ( 2 ) 

NPSI (2) 

NPTS( 60) 

PSI ( 2) 



/ 


c 


c 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PSIRI02 ) 

Rl 5J 

RBARI016) 

RC API 02, 5 1 
RSMLL ( 02 , 20 ) 
RM0DI5) 
RZER0I2) 

SGMA1 (016,016) 
SGMA2 105,16) 
SIGBLI 144) 

S IGMXI04) 
SIGMYI04) 
SIGMZI04) 

TC 03 , 03 ) 

TCORI 03,03) 
THTAXI02) 
THTAYI02) 
TRI09) 

VI (01,01) 

VX ( 05 ,20) 

VLL ( 16) 

VY ( 05 ,20) 

VZ( 05 ,20) 
VXX(0l,01 ) 

WKX (0 l ,01) 

WK Y( 0 l , 01 ) 
WKZIO 1,01 I 
X ( 05,20) 

XROT ( 02 ) 
XSIMQ(016,016) 
XX( 02 ) 

Y (05,20) 

YROT ( 02 ) 

Z( 05,20) 

ZAP( 16 ) 

ZROT ( 02 ) 

ZSTQR ( 800 ) 


COMMON / 1 T RG / ITRGX 

COMMON /BET Al/ BET A,MBETR,NBETC,PI,D,U,F,AS, ALPHA 1 , ALPHA2 ,R0 
COMMON /BETA3/0M, OMSQ , AO , AR, V ,RHO, MU 

COMMON /TEST33/ NIB, NROT »NW»NBRV1»X»Y»Z»A» B ,DNTH, LNTH ,NAR, NPER, 

1 JSIGT,NWMK, J,NWM1,N1BV,VX, VY,VZ,NIBRV 
COMMON /TEST55/ JL, JSIG,NTV,NTV1 ,M,DPS1,CHCR0, RSMLL, RCAP, GAMMA, QSZ 
COMMON /WAKE 1/ VOOMR , NUWKPT , VI , WKX , WK Y , WKZ , C0SB3 , S I NB3 , NAS 1 , 

INIBNA ,NWKLST , NW KRW , NWKCL ,NLP 1 , NLP2, NLP3, NLP4, TWOP I 

COMMON /CONT/ NA ,NR , NANR , JA , JJ , NN,N , SIGN ,1 I , NGJR 

COMMON /WK1 A/ PS I R, DPS IK , PS I K, DEL T A ,RREF , MUCDS, MUSDS, TH TAX , THTA Y 

COMMON /WKIB/ XROT , YROT, ZROT , TCOR , ALF AT , ALF A1 , ALF A2 
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COMMON /WK1C/ PSI tCCLA ,D IR 

COMMON /WK2A/ MSET, GAMMK , INOX, J AC, I NOXL, SGMAZ « S IGMZ, SGMBL 

COMMON /SUBIC/ R,C,DTWOPI 

COMMON /SUBIE/ NAS 

COMMON /CONVGA/ EPSG.NWKRQ 

COMMON / AL1 BOA/ ABK 

COMMON /MODCNT / NTVM ,NWSTRE , NWR , NANRM , N IBRVM, NI BM 
COMMON /OUT IN/ IN, OUT 
COMMON /WKCGNT/ NWKPO 

COMMON /STEPXA/ WKPT, WW, IOUT ,N0TTP1 ,KAT ,NBC 
COMMON /WK4A/ VXX 

COMMON /MOO WK1 / GAMMAM (54 , 16 ) , RM ( 1 1 , AMI 05 , 16 1 ,VXMI 54, 16 1 , 
1VYM(54,16), VZM( 54,16 ) ,XM I 54,16 ) ,YMI 54,161 ,ZMC54, 16) 

COMMON / MQDWK3/ AFM (4, 10 I , BFM { 4 , 4 ) 

COMMON /OUTD I / NNT V , NE XPWK , N SI GRW , NMODR , NMODC 

COMMON /OUTDI I / NWKCLM 

COMMON /WK2GAM/ GAMFAC 

COMMON /VLIMIT/ VL I M( 5 ) , VMLI M( 16) 

COMMON /ELNTHS/ ELL (16) 

COMMON / WK2 8/ XA,YA,ZA,XB,YB,ZB,XC,YC,ZC 

COMMON /SUBIB/ KX ,LSQ, DSQ, DTMP , LTMP , ATMP , BTMP 

COMMON /SUBID/ I,IP1,IM1 

COMMON /CONVGB/ SGMA1 , INDXG 

COMMON /WK2C/ S IGBL 

COMMON /CONVGC/ GAMMAG 

COMMON /APXLOB/ LOAON 

COMMON /OARTi/ SGRATO 

COMMON /VLNTHS/ NAL I M, VLL 

COMMON /WKQ/ NUMXYZ 

COMMON /ZCNTRL/ NZS 

COMMON /ZSS/ ZSTOR 


DATA BLANK/1 H / 

DATA NWKX,NWKY,NWKZ/3HWKX,3HWKY,3HWKZ/ 

C 

907 FORMAH 16X, 3F8. 8) 

906 FORMAT (29X, 15 ) 

16 FORMAT ( 20A4 ) 

901 FORMAT ( 19X , 2X, 8X ,E 1 0. 8) 

9875 FORMAT (1X,8G16.7) 

8882 FORMAT ( 1H1 , 47X ,37HFREE ROTOR WAKE GEOMETRY CALCULATIONS/// 
11H ,26X,20A4/ 

2 1H »26X , 20 A4/ 

3 1H ,26X, 20A4// 

4 1H , 58X, 16HBLADE PROPERTIES// 

5 1 H ,9X,F8.3 ,3 OH ADVANCE RATIO, DIMENSIONLESS, 

630X ,F8.5,27H MAXIMUM CONVERGENCE ERROR/ 

7 IH ,9X» F8.3, 31H AIR MASS DENSITY, LB-SEC2/FT4, 

8 29X,F8.3,30H REFERENCE ROTOR LENGTH, FEET/ 
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2 IH ,9X,F8.3,25H BLADE ROOT RADIUS, FEET, 

1 35X,F8. 3, 35H ROTATIONAL RATE OF ROTOR, RAD/SEC/ 

61H , 9X, F8.3, 26H FORWARD VELOCITY, FT/SEC, 

5 34X,F8.3,30H SLOPE OF LIFT CURVE, L/RA02/ 

91H ,77X,F8.3,42H VORTEX CORE RADIUS FACTOR, DIMENSIONLESS//) 

8883 FORMAT ( 

1 IH » 6 X » 5H RO T OR , 63 X , 5HR GT OR/ 

2 1H , 3X, I 1HONE TWO , 57X, I 1HONE TWO// 

3 IH ,F8.3,IX ,F8.3, 40H AMPLITUDE OF LATERAL CYCLIC PITCH, RAD, 
411X,F8. 3, IX,F8.3,44H LATERAL SHAFT TILT ANGLE, POS TO PORT, RAD/ 

5 IH ,F8.3, IX,F8.3,45H AMPLITUDE OF LONGITUDINAL CYCLIC PITCH, RAD, 
66X, F8.3 , IX,F8.3,41H LONG FIRST HARMONIC FLAPPING ANGLE, RAD/ 

7 IH ,F8. 3, IX,F8.3, 36H ANGLE OF ATTACK AT BLADE ROOT, RAD , l 5X , F8 . 3 , 
8 1 X , F8. 3 ,44H LONG SHAFT TILT ANGLE, POS AFT FR VRT , RAD/ 

91H ,F8. 3,IX,F8. 3,25H BLADE CONING ANGLE, RAD ,26X , F8 . 3, 

8 IX, F8 * 3 « 40H MASS MOMENT OF INERTIA, FT-LB-SEC 2/RAD ) 

8889 FORMAT ( 

2 IH ,F8. 3,IX,F8.3,36H BLADE INBOARD AIRFOIL RADIUS, FEET , 1 5X , F8. 3, 
11X, F8 . 3, 43H OFFSET OF HINGE FM CNTR OF ROTATION, FEET/ 

91H ,F8.3,1X,F8.3,24H BLADE MASS, L B-S EC 2/FT , 2 7X , F8 . 3 , 

BIX, F8.3.28H ROTOR REFERENCE ANGLE, RAD/ 

4 1 H ,F8.3, IX»F8.3, 24 H BLADE TWIST ANGLE, R AD , 2 7X , F 8 . 3 , 

3 IX,F8.3,I8H ROTOR THRUST, LB/ 

6 1 H ,F8„3, IX,F8.3,13H CHORD, FEET, 

538X,F8.3,IX,F8.3,31H SHAFT TILT, POSITIVE AFT, RAD/ 

8 IH ,F8. 3, IX,F8.3,45H DIRECTION OF ROTOR, POS IS COUNTERCLOCKWISE, 
76X,F8.3»LX,F8.3 , 29H SPRING STIFFNESS, FT-LB/RAD) 

8887 FORMAT! 

3 IH ,F8. 3, IX ,F8.3,44H EXTRAPOLATED ANGLE OF ATTACK AT SHAFT, RAD, 
7 7X,F8.3,IX,F8.3,31H X-AXIS ROTOR COORDINATE, FEET/ 

1 IH ,F8.3,1X,F8.3,38H FEET FROM HINGE TO BLADE MASS CENTER, 
913X,F8. 3, IX, F8.3, 31H Y-AXIS ROTOR COORDINATE, FEET/ 

1 IH , F8. 3, IX,F8.3 ,44H LATERAL FIRST HARMONIC FLAPPING ANGLE, RAD, 

2 7X,F8.3,1X,F8.3,31H Z-AXIS ROTOR COORDINATE, FEET//// ) 

C 

8884 FORMAT! 

ilH , 34HC00RD I NA TE TRANSFORMATION MATR ICES ,69X , 

225H PROGRAM CONTROL CONSTANTS// 

3 IH , 12X , 9HROTOR ONE/ 

4 IH , 99X , 13, 1 7H AZIMUTHAL STEPS/ 

51H ,F7.3,2!6X,F7.3)/ 

6 IH ,F7, 3,2! 6X,F7.3) , 66X , 13 , 1 8H BLADES PER ROTOR/ 

7 IH ,F7.3»2(6X,F7.3)/ 

8 IH ,99X,I3» 24H INPUT CONTROL COKSTANT / 

9 IH , I2X , 9HR0T0R TWO/ 

11H ,99X ,13 , 22H REV OF WAKE RETAINED/ 

2 IH ,F 7. 3,2! 6X,F7.3) / 

3 IH , F7. 3, 2(6X,F7. 31, 66X, 13, 8H ROTORS/ 

4 IH ,F7.3,2(6X,F7.3) / 

5 IH »99X ,13, 24H TRAILED VORTICES/BLADE//) 
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8885 FORMAT ( 1H ,5HRCAPS// 

11H , 10HR0 TOR ONE « 1 X , 9 { IX, F 7.4, 1H ),1X,F7.4) 

8886 FORMAT ( 1H ,10HR0T0R TWO , IX , 9( IX , F7 .4 , 1H ),1X,F7.4//) 


I N=5 
0UT = 6 
IOU T= 7 
INTP1 =4 
NOT TP 1 = 8 
I NTP2=4 
N0TTP2=4 


00 2 1=1,90 
2 01 l I )=BLANK 


RF AO INPUT. 


READ (5,16) NPTS 
READ (IN, 906) 
READ (IN, 906) 
READ ( IN, 906) 
READ (IN, 906) 

RE AO (IN, 901) 
READ (IN, 901) 
NTV1=NTV-1 
READ (IN, 901) 


« j 

NBC , NWKRQ*WW»NUWKPT,NTVM,NANRM,NA,NIB»NTV» NRE V ,NROT 

WKPT, ITRGX 

NALIM 

NUMXYZ 

SGRATO 

VOOMR , ABK,OM , V ,RHO 


"CMU (ALFA1( I),ALFA2( I) , CHORD ( I ) , ALFAS ( I ) , DELT All), 

ITHTAY ( I ) , THT AX ( I ) ,PS IR ( I ), RZERO( I ) , DIR ( I), I = l,NROT> 

READ (IN, 901) ( ( RCAP ( I , J) , J = 1 , NT V ) , I = l , NROT ) , RR EF ,CL A , EP SG 
READ (IN, 901) ( XRUT (I) ,YRQT{ I) , Z ROT I I ) , I =1 , NROT) 

MT wun n krtfA m n r\T 


NTVMP2=NTV*NRGT 
R E AD ( I N , 90 1 ) ( ( AFM { I , J ) , J=1,NTVMP2), 1 = 1, 

READ (IN, 901) ( ( BFM ( I , J) , J=1 ,NTVi) , I=l,NTVM) 
READ (IN, 901) VLIM, VMLIM 
READ (5,901) GAMFAC 
READ (IN, 901) ELIM 

IF (NUMXYZ. GT.O) READ (IN, 901) (ZSTOR(I) 


NTVM) 


1=1, NUMXYZ) 


ITRGX = UPPER LIMIT ON NUMBER OF ITERATIONS FOR GAMMAS 
ABR = VORTEX CORE RADIUS CONSTANT 
SUBSCRIPT (M ) = INCREMENTED NUMBER OF ROTORS 


OEFINE CONSTANTS. 
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INDXL=0 
PI = 3. 141593 
KAT=0 

TW0PI=2.*PI 

0TW0PI=1./TW0PI 

SGRATQ=DTWOP I /SGRATO 

DPSl=TWOPI/NA 

DPSIK^TWQPI /NIB 

OMSQ=OM*OM 

MU=V/IOM*RREF) 

MUDP=MU*DPSI 

RE AO ANGLES IN RADIANS OR CONVERT DEGREES TO RADIANS BEFORE 
NEXT STEP. 

CY=COS(THTAY (1) ) 

SY=SIN(THTAY(I» > 

CX=COS( THT AXC I) ) 

SX=SIN(THTAX(1) I 


COMPUTE COORDINATE TRANSFORMATION MATRIX FOR USE IN LOCATION 
OF MTH ROTOR. 


TCORI 1,1) 
TCOR I 2, 1 ) 
TCOR (3*1) 
TCORI 1,2) 
TC0R(2»2) 
TCOR ( 3,2) 
TCORI 1,3) 
TCORI 2,3) 
TCORI 3,3) 
MBETR=3 


=C Y 
= S Y*SX 
=— SY*CX 
= 0 . 

= CX 

= sx 

= SY 

=-SX*CY 

=CY*CX 


COMPUTE TIP PATH ANGLE FROM APPROXIMATE EQUATIONS OF MOTION OF 
RIGID, SPRING-HINGED BLADE. 


DO 15 M= 1 , NROT 
RO=RZERO(M) 

CHORO I M ) = CHORD I M ) /RR EF 
PSI I M ) =0. 
ALPHAI=ALFA1IMI 
ALPHA2=ALFA2 (M) 

AS = ALFAS« M ) 

F=CHCRD CM) 

D=DELTA I M) 
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N8£TC=M 

NCALB=0 

IF ( NCALB.EQ . 1 ) CALL BETAS 
IF (NCALB.EQ. 0) 

1REA0 (5,901) BET All ,M) ,BETA(2»M) ,BETA(3»M),A0(M) , AR( M) 
ALFAT (M)=ALFAS(M)— BETA(3,M) 

MUSDP ( M ) =MUDP*S INIALFAT(M) ) 

MUCDP( M)=MUOP*COS(ALFAT(M) ) 

MUSDS(M)=MUDP*SIN(ALFAS(M) ) 

MUCDS ( M )=MUDP*COS (ALFAS(M) ) 

15 CCLA(M)=.5*CH0RD(M)*CLA 
SINB3=SIN( BETA( 3, 1) ) 

COS83=COS(BETA(3,1) ) 

PRINT OUT INPUT AND CONTROL CONSTANTS 


WRITE (OUT, 8882 )NPTS»MU»EPSG »RHO , RREF ,R0 ,0M , V ,CL A , ABK 

WRITE (OUT, 8883 > ALFA1 , THTAY, ALF A2» BETA( 3, 1 ) , BETA ( 3, 2 ) , ALPHAO, 

1 THTAX,BETA( 1, 1) ,BETA( 1,2) ,10 

WRITE (OUT, 8889) RZ ERO .DELTA ,MB , P S I R , ALPH AR , LX , CHORD , ALF AS , 01 R , KXX 
WRITE (OUT, 8887) AO , XRCT , XX , YROT , BET A ( 2 ♦ 1 ) , BETA ( 2 , 2 ) , ZROT 


WRITE (OUT, 8884) N A, TCOR ( 1 , 1 ) , TCOR ( 1 , 2 ) , TCOR ( 1 , 3) , TCOR ( 2 , 1) , 

1 TCOR (2, 2) , TCOR (2,3) ,NIB,TCOR( 3,1) , TCOR (3,2 ), TCOR (3,3), WKPT, 

2 NREV,T( 1,1) ,T( 1,2) ,T( 1,3) ,T(2,1) ,T(2,2) , T( 2 ,3 ) , NROT , T ( 3 , 1 ) , 

3 T(3,2) ,T(3,3) ,NTV 

WRITE (OUT, 8885) ( RCAP ( 1 , IX ) , I X=l ,NTV) 

IF (NR0T.EQ.2) 

1WRITE (OUT, 8886) ( RCAP (2 , IX ) , IX=1 ,NTV > 

WRI TE ( 6 , 30) 

30 FORMAT (4H0AFM/ ) 

WRITE ( OUT, 9875 ) ( ( AFM ( I , J ) , J=1 ,NTVMP2 ) , I = 1 , NTVM ) 

WRITE (6,31) 

31 FORMAT (4H0BFM/ ) 


WRITE ( OUT, 98 75 )( ( BF M( I , J) ,J=1,NTVL> ,1=1, NTVM) 

WR I TE (6 , 32 ) 

32 F0RMAT(33H0VL(M(NTV) , V ML I M ( NTV M*N I B I , GAMFAC/ ) 

WRITE (OUT, 9875) VL I M , VML I M , GAMF AC 

WRITE (OUT ,33)NALIM, ELIM 

33 FORMAT ( 12H0NAL I M ELIM/2X, I3,GI6.7) 

IF (NUMXYZ.GT.O) WRITE (OUT, 9875) (ZSTOR(I) ,1=1 ,NUMXYZ) 


DIMENSIONAL I ZATION FACTORS 
LOAD RH0*0M*0M*R**3 

R11=RREF*RREF*RREF 
DFLOD=RHO*OMSQ *Rll 

CONSTANTS USED TO CONTROL PROGRAM. 
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NJ=NIB*NROT*NTV 

NAR=NA*NREV 

NGJ=NIB*NTV1 

NGJR=NGJ *NR0T 

NIBV=NIB*NTV 

NlBRV=NIBV*NROT 

NI BM= N I B*NTVM 

NBRV1=NIBRV+1 

NAS=2 

NLP1=NR0T 

NLP2=Nl B 

NLP 3=NT V 

NWKPD=0 

NPER=1 

NR=NTV1*NR0T 

NANR=NA*NR 

NI BNA=NA/NIB 

NIBRVM=NTVM*NI B*NR0T 

NWSTRE=2 

NWR=NA*NREV 

NNT V= 20 

NEXPWK=5 

NS I GR W= 1 6 

NWKRW=5 

NWKCLM=20 

N MO DR = 54 

NMODC =1 6 

NNROT =2 

NNTVM= 1 0 

NT VMX=4 

COMPUTE LENGTHS FOR USE IN MODIFIED WAKE 

N 1 = N I 8*NT.VM 
KK = 0 

DO 10 M=1,NR0T 

CALL MODRM ( NT V,NTVM ,RCAP , RMOD , AFM, NNROT ,NNTVM,NTVMX , M, NWKRW ) 
DO 5 JJ=1 i NTVM 
KK=KK+ 1 

ELL(KK) = RMOD( JJ )*DPSI/RREF 
5 VLL(KK) =ELIM*ELL(KK) 

N3=( M— 1 ) *N1 
N2=N l +N3 
N3=NT VM+ 1 + N3 
DO 10 JJ=N3,N2 
KK=KK+1 

ELL IKK) =ELL I KK-NTVM ) 

10 VLL(KK)=EL IM*ELL ( KK ) 

WRITE (6,34» 
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34 FORMAT! 12H0VLL ( N I BRVM) / ) 

WRITE {OUT, 98751 ( VLL C I) , 1=1 ,NI BRVM ) 

DEFINE SLADE POSITIONS AND CIRCULATIONS FOR WKPT.GE.3, CARD REA 
WKPT=2 » TAPE READ FOR WKPT=1 

IF (NWKRQ.EQ.O) GO TO 20 

NWKCL=I 

NWKLST=0 

00 13 I =1 .NUWKPT 
NWKLST=NWKLST*1 
IF (NWKLST.LE.NWKRW) GO TO 14 
NWKLST = 1 
NWKCL =NWKCL-*1 

14 READ (IN, 907) WKX ( N WKL ST ,NWKCL ) » WKY( NWKL ST » NWKCL ) »WKZ(NWKLST» 
1NWKCL) 

13 CONTINUE 

IF (NWKCL. EQ.l) NWKRW=NWKLST 

IF (NWKLST. EQ. NWKRW. OR. NWKCL. EQ.l) GO TO 200 
NXX =NWKLST + 1 
DO 22 I =NXX , NWKRW 
WKX ( I .NWKCL) =0. 

WKY ( I , NWKCL ) =0 . 

22 WKZ ( I .NWKCL ) =0 . 

CALL MPRECT ( N WKX , WKX, NWKRW, NWKCL , NWKRW ,NWKCLM) 

CALL MPRECT ( NWKY , WKY , NWKRW , NWKCL , NWKRW , NWKCLM ) 

CALL MPRECT ( N WKZ, WKZ , NWKRW , NWKCL , NWKRW , NWKCLM ) 

200 DO 18 1=1, NWKRW 
DO 18 J=l, NWKCL 
VXX( I , J )=0. 

18 VI ( I, J)=0. 

20 NAS 1= 0 
NW= I 
1 1 = 1 

READ FOR STARTING DATA ON TAPE 


PERFORM A STEP 

9889 WKPT=3 

CALL WK1 

STOP 

END 
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SUBROUTINE WK1 
INTEGER OUT *WKPT ,CNTR 
INTEGER T45, WW 

REAL MXYZt MU, MU ALT ,MUSPK ,MUC AT , MUSAT * MUDP*MUSDP» LLNTH,LNTH, LOADN , 
1LTMP»LSQ,MX»MY,MZ» MUC DP, MU SOS, MUCDS ,I0,MB,LX,KXX 


DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENS ION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENS ION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


A(05,20) 

ALFA1 102) 

ALFA2I02) 

ALFASI02) 

ALFATI02) 

ALPHAOI 02) 

ALPHARI02) 

AO 1 02) 

ARI02) 

AT 1 5 ) 

ATMPI 5) 

B 1 005 1 16) 
BETA! 03 » 2 ) 

BTI 5) 

BTMPI 5) 

C I 09) 

CCLAI02 ) 
CHOR0I02) 
DELTAI02) 
DII90 ) 

DIRI2) 

DLNTHI 016) 
DNTH(005,016) 
DSQI016) 
DTMPI016) 
GAMMA ( 05 1 0 16 ) 
GAMMAGI 144) 
GAMMK ( 1,016) 

1 NDXG ( 16 ) 
10 ( 02 ) 

KXX ( 02 ) 

LLNTHt 020) 
LNTH ( 05 ,20 ) 
L0ADNI020 ) 
LSQ< 020) 
LTMPC020) 

LX (02 ) 

MB ( 02 ) 

MUCDP( 02 ) 
MUCDS ( 2 ) 

MUSDP ( 02 ) 
MUSDS ( 2 ) 

NPSI (2) 

PSI (2) 
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DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DI MENSIGN 
DIMENSION 
DIMENSION 


PSIR<02) 

R( 5) 

RBARC0I6) 

RCAP(02,5) 

RSMLL(02,20) 

RZER0I2) 

SGMA1 (016,016) 
SGMA2I 05, 16) 

S I GBL ( 144 ) 
SIGMX<04) 
SIGMYl 04) 

S IGMZI04) 

T ( 03 ,03) 

TCOR( 03,03) 

T HT AX ( 02 ) 
THTAY( 02) 

TR < 09 ) 
VI<01,01) 

VX( 05,20) 

VY ( 05 » 20 ) 

VZ ( 05 ,20) 

WK X ( 0 1 , 01 ) 
WKY(01 ,01 ) 
HKZ(01,01) 

X ( 05 , 20 ) 
XR0TI02 ) 

XSIMQI 016,016) 
XX (02) 

Y ( 05 , 20 ) 

YROT < 02) 

Z ( 05,20) 

ZAP( 16) 
ZR0H02) 

Z S TOR 1800 ) 


COMMON /BETA3/0M,0MSQ,A0,AR»V»RH0,MU 
COMMON /WKQ/ NUMXYZ 
COMMCN / ZCNTRL/ NZS 

COMMON /TEST33/ NI 8 ,NROT • NW, NB RV1 ,X , Y , Z, A, B, DNTH, LNTH,NAR,NP ER, 
1JSIGT ,NWMK, J,NWM1 , N I 8 V , VX, VY , VZ , N I BR V 
COMMON / TEST55/ JL , JS I G, NTV, NT V l ,M , DPS I ,C HORD ,R SMLL , RC AP , GAMMA, QSZ 
COMMON / WAK El/ VOOMR , NUW KPT , VI , WKX , WK Y , WKZ , C0SB3 , S I NB3 , NAS 1 , 

INI BNA,NWKLST,NWKRW,NWKCL,NLP1,NLP2,NLP3,NLP4,TW0PI 

COMMON /CONT/ N A , NR , N A NR , J A , J J , NN , N , S IGN , 1 1 ,NG JR 
COMMON /BETA1/BETA,MBE TR ,NBETC , PI ,D ,U ,F , AS , ALPHA 1 , ALPHA2 ,R0 
COMMON / WK L A/ PS I R , DPS IK ,P S I K, DELT A , RREF , MUCDS, MUSOS , THT AX , THTA Y 
COMMON / WK 1 B / XROT, YROT , ZROT ,TCOR , ALFAT , ALFA1 , ALFA2 
COMMON /WK 1 C/ PS I , CCLA , D IR 
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COMMON 

COMMON 

COMMON 

C 

9876 FORMAT 


/SUBIC/ Rt Ci DTWQP I 
/ APXLDA/ RBAR 
/ZSS/ ZSTOR 

( I HO , / 8 ( 1X,G14. 7) ) 


COMPUTATIONS FOR REFERENCE ROTOR 


COMPUTE BLADE POINTS FOR 11*1, 
BLADE. 


WAKE POINTS FOR 11=2, FOR EACH 


OUT=6 

NZS=0 

21 11=11+1 
J=0 

DO 28 K=l,NIB 
PS I K= ( K— 1 ) *DPS I K 
WORK L = PS I ( l)+PSIK 
S I NPK= S I N ( WORK 1 ) 

CO SPK=C OS( WORK 1 ) 

BK=8ETA( 1, 1 1+BETAI2, 1 ) *S INPK+BETAI 3, l)*COSPK 
COSBK=COS(BK) 

S INBK = S I N ( BK ) 

DO 28 1=1, NTV 

J=J+1 

NZS=NZS+1 

RSCRP = < RCAP( 1, I ) -DELTA (11 ) /RREF 
RSMAL=DELTA( 1) /RREF +RSCRP*COSBK 
RSMLL ( l , J )= RSMAL 
X( II ,J)=RSMAL*COSPK 
Y ( I I,J)=RSMAL*SINPK 
Z( I I »J)=RSCRP*SINBK 
25 IF (NUMXYZ.GT.O) Z ( 1 1 , J ) =ZSTOR I NZS 1 
IF ( I I.EQ.l ) GO TO 28 

27 X(2tJ> = X(2,J) +MUCDS ( 1 ) 

Z(2,J)=Z(2,J)+MUSDS( 1) 

IF (NUMXYZ.GT.O) Z(2,J)=ZST0R(NZS) 

28 CONTINUE 

COMPUTATION FOR ADDITIONAL ROTORS 

ANGLES MUST BE IN RADIANS, EITHER READ RADIANS OR CONVERTED 

FROM DEGREES. T(I,J) IS COORDINATE TRANSFORMATION MATRIX 
FOR MTH ROTOR. 


29 IF (NROT.LE.l) GO TO 50 

30 DO 39 M=2 , NROT 
CY=COS( THTAY(M) ) 
CX=COS(THTAX(M) > 
SY=SIN(THTAY(M) ) 
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SX = S I N ( THT AX ( M ) ) 

TI1,1)=CY 
T{ 2 , 1 ) =0 • 

T ( 3 , l ) =SY 

T< 1,2)=SY*SX 

T ( 2»2)=CX 

T( 3,2 )=-SX*CY 

T ( l,3)=-SY*CX 

T(2,3)=SX 

T(3,3)=CY*CX 

DO 39 K=1 ,NIB 

PSIK=PSIR(M)+(K-U*OPS IK 

COSPK=COS(PSI(M)+PSIK) 

SINPK=S INIPSII MH-PSIK) 

8K=BET A( l»M)+BETA(2,M)*S INPK+BET A ( 3, M ) +COSPK 
COSBK=COS(BK) 

SINBK=SIN(BK) 

00 39 1=1, NTV 
J = J+1 
NZS=NZS+1 

RSCRP=( RCAPIM, I J-OELTA(M) l/RREF 

RSMAL=DELTAlM)/RREF+RSCRP*COSBK 

RSMLLI2, J)=RSMAL 

C(1)=RSMAL*C0SPK 

C(2)=RSMAL*SINPK 

C(3)=RSCRP*SINBK 

COMPUTE POSITION OF MTH ROTOR IN COORDINATE SYSTEM OF ROTOR I 

TR ( 1 1 =XROT { M ) 

TR ( 2 ) = YRQT I M ) 

TR I 3 ) =ZRQT ( M I 
DO 32 1=1,3 
DO 32 J J = 1 , 3 

32 TR(L) =TR ( L) +TIL.JJ) *C I J J I 
XI II, J)=0. 

Y( 1 1 , J ) =0 . 

Z( II, J>=0. 

COMPUTE BLADE POINTS FOR 11=1, WAKE POINTS FOR 11=2, FOR 
EACH BLADE. 

DO 34 L = 1 , 3 

X( II,J1 = X(II,J) +TCOR (1 ,L ) *TR (L I 
Y( 1 1 , J ) = Y{ II,J)+TC0R(2,L)*TR(L) 

ZI II , J)=ZII I , J)+TC0RI3,L )*TR (L ) 

IF (NUMXYZ.GT.O) Z I I I , J I =ZSTOR I NZS ) 

34 CONTINUE 

IF (I I.LE.l) GO TO 39 

33 X(2»J)=X( 2»J) +MUCDS I M) 
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Z(2«J)=Z(2* J I+MUSDS (Ml 
IF (NUHXYZ.GT.O) ZI 02 , J) =Z STOR ( NZSI 
39 CONTINUE 

DEFINE C IRRCULAT IONS BY CALCULATION OR READ FROM CARDS* TAPE. 

50 J=0 

51 JJ=0 

IF (NUHXYZ.GT.O) WRITE (6*9876) (Z( 1 1* JH), JH=1,NIBRV) 

DO 60 M=1,NR0T 
MUALT=MU*ALFAT( M) 

DO 60 K=I,NIB 

PSI K=( K— i ) *DPSI K+PSIRIM) +PSI (H) 

SINPK=SIN(PSIK) 

COSPK=COS ( PS IK) 

BK=BETA( 1*M)+BETA(2,M) *S INPK+BETAI3 , M ) *COSPK 
COSBK=COS(BK) 

ALFBR=AO(M) +ALFA1 (M)*SINPK+ALFA2(M)*C0SPK 
MUSPK=MU*SI NPK 
DO 60 I = l » NT VI 
JJ=JJ+1 

RSMAL=( DELTA! M)+(RCAP(M, I)-DELTA(M) )*COSBK) /RREF 
RB AR ( J J ) =RSMAL+ .5*( RC AP( M* I +1 l-RCAP ( M» I ) )*COSBK/RREF 
ALFBR=ALFBR-AR( M)*RBAR(JJ) 

GAMMA (I I , JJ)=CCLA(H )*( ALFBR*( RBAR ( J J )+MUSPK*DIR( M) J+MUALT) 

60 CONTINUE 

WRITE (6*9876) ( GAMMA ( 1 * JX) * JX = I ,NGJR ) 

ENTER TYPICAL AZIMUTHAL STEP COMPUTATION 

70 IF (II.GT.l) GO TO 72 
CALL WK2 
CALL CONVG 
CALL AL1BD2 
CALL APXLD 
CALL WK3 
CALL STEPX 
GO TO 21 

72 11=0 
NW=NW+1 

WRITE (6*9875) NW 
9875 FORMAT (IH0,I4,4H WK1) 

DO 73 M = 1 * NROT 

73 PSI (M)=PSI( M)+DPSI*DIR(M) 

GO TO 21 

END 
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SUBROUTINE MATINV 
DIMENSION A( 016,016) 

DIMENSION 8(016, L) 

DIMENSION INDEX! 16, 03) 

COMMON /BET A2/A,B,N,M, DETERM 

EQUIVALENCE ! AMAX, T, SWAP ) 

C INITIALIZATION 

10 DETERM=1. 

15 DO 20 J=1,N 
20 INDEX! J ,3)=0. 

30 DO 550 1=1, N 

C SEARCH FOR PIVOT ELEMENT 

AO AMAX=0. 

45 DO 105 J = 1 » N 

IF ( INDEX! J, 3 I- 1)60, 105, 60 
60 DO 100 K= 1 , N 

IF ( INDEX(K,3)-1 ) 80,100,715 
80 IF (AMAX-ABS! A! J,K)> ) 85,100,100 
85 I ROW= J 
90 ICOLUM=K 

AMAX=ABS(A( J,KI I 
100 CONTINUE 
105 CONTINUE 

INOEXI ICOLUM ,3)=INDEX( IC0LUM,3)+1 
260 INDEX! I ,1 )=IROW 
270 INDEX! I,2)=IC0LUM 
130 IF ( IROW-ICOLUM) 140,310,140 
140 DE TER M=-OE TERM 
150 DO 200 L=i,N 
160 SWAP=A ( I ROW , L } 

170 A(IROW,L)=A( ICOLUM, LI 
200 A! ICOLUM, L)=SWAP 

IF (M) 310,310,210 
210 DO 250 L=1,M 
220 SWAP=B! I ROW , L J 
230 B(IROW,L)=B( ICOLUM, L) 

250 B( ICOLUM, L)=SWAP 

C DIVIDE PIVOT ROW BY PIVOT ELEMENT 

310 PI VOT=A( ICOLUM, ICOLUM) 

DET ERM=OETERM*P I VOT 
330 A! ICOLUM, ICOLUM )=1. 

340 DO 350 L =1 , N 

350 A ( ICOLUM , L ) = A( ICOLUM,L ) /PIVOT 
355 IF (M) 380,380,360 

360 DO 370 L= 1 » M 

370 B I I COLUM ,L ) =B ( ICOLUM, L )/ PIVOT 
C REDUCE NON-PIVOT ROWS 

380 DO 550 L 1= l , N 

390 IF ( L 1- I COLUM ) 400,550,400 
400 T=A(L1, ICOLUM) 
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420 A{ L 1 * I COLUM) =0. 

430 DQ 450 L = 1»N 

450 A(L1 tL»=A(Ll ,LJ-A(ICGLUM,LI*r 
455 IF C M > 550,550i460 
460 OQ 500 L=L»M 

500 B(LL>L)-B(Li f L)-8( ICOLUW,L)*T 
550 CONTINUE 
715 I D=2 
740 RETURN 
END 



SUBROUTINE MPRECT INI ,R , L ,M, L D, MO ) 

REAL R( LD,MD ) 

Jl = 0 
J2=0 
JSEC=0 

1 Jl= J2+1 
J2= J 1+7 

IFIJ2.LE.M) GO TO 2 
j 2 — M 

2 JSEC=JSEC+1 
WRITE(6f3)NI fJSEC 

3 FORMAT ( IH0,A4,1X,6HMATRIX,8X, 7HSECT ION, 13) 
WRI TE ( 6 , 4) (I ,I=JI»J2) 

4 FORMAT (2X,3HROW, 113,7114/) 

DO 5 1=1, L 

5 WRITE(6,6) I , ( R ( I ,K ) ,K=J1»J2I 

6 FORMAT ( I4,4X,8F14.4) 

IFIJ2.LT.M) GO TO 1 
RETURN 

END 


18 



SUBROUTINE MOORM I NT V, NTVM, RCAP ,RMOD t AFM, NNROT, NNTVM, NTVMX, M.NWKRI 
DIMENSION RC API NNROT, NWKR ) , RMOD INWKR ), AFMINTVMX, NNTVM ) 

DO 10 LM-1 » NTVM 
RMOOILM )=0 . 

DO LO L=*l *NTV 
N=L+NTV*IM-1 1 

10 RMOO(LM)=AFMCLM, Nl *RC APIM, L I +RMODILM I 
RETURN 
END 
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SUBROUTINE BETAS 

C THE INPUTS TO THIS SUBROUTINE ARE COMMON TO OTHER SUBROUTINES 

REAL MU,MU2,MU4,MBDXB,M8,M00,L,M01,M02,MBB,KIM10,K2M10,M11,M12, 
1M13,M20,M20C,M20D,M115 ,IO,K 
DI MENS I GN AO (02 1 
DIMENSION AR(02 ) 

DIMENSION BETA( 3, 2 ) 

DIMENSION D3 (09) 

DIMENSION 033(016,0161 
DIMENSION XBETAI0I6) 

COMMON /BETA1/BETA,MBETR,NBETC,PI ,D,R,C, AS, ALPHA1, ALPHA2»R0 
MBETR = NUMBER OF BETA ROWS 
NBETC = NUMBER OF BETA COLUMNS 
COMMON /BETA2/D33,XBETA,N,M,DETERM 
C COMMON. BETA2 CONTAINS THOSE VARIABLES USED BY MATINV 

COMMON /BETA3/0M,0MSQ»A0»AR»V»RHG,MU 
EQUIVALENCE (033(1,11,03(111 

C BLADE RIGID BODY CALCULATIONS FOR BLADE WAKE AND ESTIMATED LOADS 

C THE RIGID BODY BLADE FLAPPING MOTIONS ARE GIVEN BY BETA! OMEGA*T ) , 

C WHERE BETA ( OMEGA *T ) =BETA ( 1) + BETA(2)*SIN( OMEGA+T) +BET A3*C0S ( 

C OMEGA*T ) OR SINCE PSI=OMEGA*T. . . 

C BETAtPSI )=BETA(1 >+BETA(2 )*SIN(PSI ) +BETA( 3 ) *S INf PS I> 

C PSI=GMEGA*T=0 AT THE X-AXIS 

C THE BETA ( 1 ) , BET A(2 ) , BET A (3 ) ARE DEFINED BY THE EQUATION WHERE 

C THE MATRIX OF COEFFICIENTS POST-MULTIPLIED BY THE BETA COLUMN 

C VECTOR » THE COLUMN VECTOR( MOO, MO 1,M02 > 

C ALPHA = BLADE SECTION ANGLE OF ATTACK, RADIANS 

C = A0+AR*R+ALPHA1*SIN(0MTH-ALPHA2*C0S«GMT) 

C ALPHAO = GEOMETRIC ANGLE OF ATTACK AT BLADE ROOT, RADIANS 

C ALPHAR = TOTAL DECREASE IN ANGLE OF ATTACK TOTAL BLADE TWIST 

C ANGLE, RADIANS 

C ALPHA1 = AMPLITUDE OF LATERAL CYCLIC PITCH, RADIANS 

C ALPHA2 = AMPLITUDE OF LONGITUDINAL CYCLIC PITCH, RADIANS 

C AS = SHAFT TILT, POSITIVE AFT, RADIANS 

C C = CHORD, FEET 

C D = OFFSET OF HINGE FROM CENTER OF ROTATION, FEET 

C 10 = MASS MOMENT OF INERTIA OF BLADE ABOUT THE BLADE HINGE, FT-LB 

C -SEC2/RAD 

C K = SPRING STIFFNESS, FT-LB/RAD 

C L = LIFT OR TRUST OF ROTOR 

C MB = BLADE MASS, LB-SEC2/FT 

C OMEGA = OM = ROTATIONAL RATE OF ROTOR, RAD/SEC 

C R = ROTOR RADIUS, FEET 

C RHO = AIR MASS DENSITY, LB-SEC2/FT4 

C RO * BLADE ROOT RADIUS, FEET 

C V= FORWARO VELOCITY, FT/SEC 

C XB = DISTANCE FROM HINGE TO BLADE MASS CENTER, FEET 

READ (5,1) K, 10, MB, XB, ALPHAO, ALPHAR, L,R 
l FORMAT ( 29X , E 10 . 8 ) 

RX= R— RO 
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ACM NBETC ) =ALPHAQ-«-ALPHAR*RQ/RX 

AR ( NBETC I =ALPHAR/ RX 

VOM=V*OM 

VV=V*V 

RQRG=RO*RQ 

RORQRG=RORQ*RO 

RQ4=R0R0R0*R0 

RR=R*R 

RRR=RR*R 

RRRR=RRR*R 

A1AS= ALPHA1+AS 

MU2=MU*MU 

MU4=MU2*MU2 

P IROCL=P I *RHO*C 

R1=PIR0CL*( R-RO ) 

R2= P I ROCL* ( RR-RGRO) /2. 

R3=P I ROCL* CRRR— RCROROI/3. 

R4=PI ROCL* ( RRRR-RQ4 ) / 4 • 

R5= P I ROCL* ( RRRR*R— R04 + R0 ) /5 • 

R2DR1=R2-D*R1 
R3DR2=R3-D*R2 
R4DR3=R4-D*R3 
MBD XB=MB*0* XB 
C2=C*. 5 

CT=L/ ( PI*RHQ*OMSQ*RRRR) 

WI= SQRT(CT*CT*MU4) 

IF (WI.LT.HU2) STOP 
WI=GM*R*( .5* SORT ( WI-MU2) ) 

RX=VV*.5 
Al= AO ( N8ET C ) 

A2= AR (NBETC ) 

MOO=R 2DR l*RX*Al +R3DR2*( V0M*A1AS-QM*WI-A2*RX ) +R40R3*0MSQ* AL-R5 
L*OMSQ*A2 

M0I=R2DR1*(.75*VV*ALPHA1— V*WI+VV*AS)+R30R2*V0M*AI*2. 4-R4DR3* ( QMSQ* 
1ALPHAI-2 .*OM*A2*V ) 

M02-( R20Rl*VV*-25+R4DR3*0MSQ)*ALPHA2 

MBB=MBDXB-R3DR2*C2 

KIMIO— K+OMS Q* (IO+M8B) 

K2K10=K1MI0-0MSQ*I0 
M1I=R20R1*V0M*C2 
Ml2=-R3DR2*VOM 
M I3=— R2DR 1*RX 
M20=-R4DR3*0M 
RX=M1 3* • 5 
RXI=M20*QM 
M20C= RX 1+RX 
M20D=RX1— RX 
MI 15=M1 !*• 5 
033(1, 1)=KIM10 
033(2, 1)=-MI1 
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033(3, l)=-M12 
D33 ( 1,2) =— Ml 15 
033(2, 2>=K2M10 
D33 (3 ,2 ) =-M20C 
D33( L , 3 ) =0« 

033(2, 3)=M20D 
D33 ( 3 ,3 > =K2M1 0 
XBETA ( 1 ) =M00 
X BETA ( 2 ) = M01 
XBETA ( 3 > — M02 
N-3 
M = l 

CALL MATINV 

DO 2 1 = 1, M8E TR 

BET A( I , NBET C)=XBETA(i > 

RETURN 

END 
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SUBROUTINE WK2 
INTEGER OUT ,WKPT,CNTR 
INTEGER T45 , WW 

REAL MXYZ, MU, MUALT , MUSPK»MUC AT , MUSAT * MUDP » MUSDP, LLNTH,LNTH» LOAON* 
1LTMP,LSQ»MX*MY,MZ» MUCDP* MUSDS, MUCDS »IO»MB»LX»KXX 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


A( 05* 20) 
ALFA1102) 
ALFA2I02) 
ALFASI02) 
ALFATI02) 
ALPHAO ( 02 ) 
ALPHAR (02 ) 
AOI02) 

ARI02) 

ATI5I 
ATMPI 5) 

8(005 » 16) 
BETA! 03,2) 

BT (5 ) 

BTMP ( 5 ) 

C { 09) 

CCL A( 02 ) 

CHORD (02) 
DELTA! 02) 

D 1 1 90 ) 

DIR(2 ) 

DLNTH ( 016) 
DNTH( 005,016 ) 
DSQ( 016) 
DTMPI016) 
GAMMA (05,016) 
GAMMAG( 144) 
GAMMK (1,016) 
INDXG! 16) 
( 0 ( 02 ) 

KXX ( 02 ) 

LLNTH( 020) 

LNTH(05,20) 

LOA0N(020) 

L SQ( 020) 

LTMP(020) 

LX102) 

M B ( 02 ) 

MUCDP ( 02 ) 
MUCDSI 2) 
MUSDP(02) 
MUSDS ( 2 ) 

NPSI (2) 

PSI (2 ) 
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c 


c 


0 1 MENS ION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


PSIR(02) 

RI5) 

RB Aft (016) 

RC AP ( 02 » 5 ) 
RSMLL (02*20) 
RZERO (2 ) 

SGMA1 (016,016) 
SGMA2( 05,16) 

S IGBL ( 144) 
SIGMX(04) 
SIGMY( 04) 

S I GMZ ( 04 ) 

1(0 3,03) 

T COR (03,03) 
THTAX(02 ) 
THTAY( 02) 

TR (09 ) 

VI (01 ,01) 

VX( 05,20) 
VY(05, 20) 
VZ(05,20) 

WK X ( 01 , 01 ) 

WKY ( 01 i 01 ) 

WKZ (01,01) 

X ( 05 , 20 ) 

XROT ( 02 ) 

XSIMOI 016,016) 
XX (02 ) 

Y ( 05,20) 

YRQT ( 02 ) 

Z ( 05 , 20 ) 

ZAP( 16) 

ZROT ( 02 ) 


COMMON /BETA 1/BETA, MBE TR ,NBETC , P I ,D,U,F, AS, ALPHA1 , ALPHA2 , RO 
COMMON /BETA3/OM,OMSO, AO,AR, V,RHO,MU 

COMMON /TEST33/ NI B , NRGT , NW, NB RV I ,X , Y , Z, A, B, DNTH, LNTH,NAR,NPER , 
IJSIGT ,NWMK,J, NWML ,NIBV»VX,VY,VZ,NIBRV 
COMMON /TEST55/ JL , JS I G, NTV, NTV 1 ,M , DP S I »CHORD,R SMLL , RCAP , GAMMA, QSZ 
COMMON /WAKE 1/ VOOMR , NUWKP T , VI , WKX , WKY , WKZ , C0SB3 , S I NB3 , NASI , 

INI BN A, NWKL ST,NWKRW»NWKCL*NLP1»NLP2» NL P3, NLP4, TWOP I 


COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 

COMMON 


/CONT/ NA,NR,NANR, JA, JJ, NN,N ,S IGN, II,NGJR 
/WK LC/ PS I , CCLA ,D IR 

/WK2 A/ MSET,GAMMK,INDX, JAC, I NDXL, SGMAZ, S I GMZ, SGM8L 

/WK2B/ XA,YA,ZA,XB,YB,ZB,XC,YC,ZC 

/SUB IB/ KX,LSQ,OSQ,OTMP,LTMP,ATMP,BTMP 

/SUBIC/ R,C,DTWOP I 

/SUBID/ I,IP1,IM1 

/C0NVG8/ SGMA1, INDXG 
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COMMON /WK2C/ SIGBL 

COMMON /M0DWK1/ GAMMAM (54 , 16 }, RM!1 ) , AM( 05, 16 1 , VXM{ 54, 161 , 
1VYM! 54,16) ,V2MI 54, 16) « XM( 54 , 16 ) , YM( 54 * 16 ) , ZM( 54 , 16 » 

COMMON /MODCNT/ NTVM, NWSTRE, NWR > NANRM ,N IBRVM*NIBM 
COMMON /SUB I E/ NAS 

COMMON /QUID 1/ NNTV»NE XPWK »NSI GRW»NMODR »NMODC 
COMMON /WK2GAM/ GAMFAC 
COMMON /DART1/ SGRATO 


DATA INX1 ,INX2, INX3, INX4,INX5, INX6.INX7/ 

14H X • 4H Y,4H Z,4H VX,4H VY,4H VZ.4HSIGA/ 

9876 FORMAT { 1H0 , 1 14/ ( 8 C IX , G14. 7 ) ) I 


NEW COORDINATES FOR P1J AND LOAD COMPONENTS OF GAMMA! 1,J) ARE 
NOW COMPUTED, WAKE AND SELF- INDUCED VELOCITY COMPONENTS 
OF GAMMA! 1,J) ARE TO BE COMPUTED 

DEFINITION OF VZ J I RBAR J , PSI I > 

VZS AND SIGMAS ARE DEFINED AS FOLLOWS. THE EFFECT OF THE WAKE 
FROM ONE BLADE IS COMPUTED, ONE ROW OF SHED VORTICES AND 
THE TRAILING VORTICES JUST AHEAO OF THEM TAKEN PER TIME. 
THE DISTANCES FROM THE POINT WHERE THE INDUCED VELOCITY IS 
COMPUTED AND THE VORTEX ELEMENT IS LOCATED, AND THE 
ORIENTATION OF THE VORTICES ARE SUCH THAT ESSENTIALLY 
THE SAME FORMULA CAN BE USED TO COMPUTE THE EFFECT OF 
BOTH SHED AND TRAILING VORTEX ELEMENTS. XA, XB, XC , ARE 
THE X COORDINATES OF THE POINT AT WHICH THE INDUCED 
VELOCITY IS COMPUTED, AND THE END POINTS OF THE VORTEX 
ELEMENT UNDER CONSIDERATION. 


J=0 

M=1 

IF INW.GT.2) GO TO 83 
DO 81 JX=1 » N I BRV 

81 A! 1 ,JXI=CHORDi M) 

DO 82 JX=l , NGJR 

82 B!2,JX)=CH0RD!M» 

83 DO 140 M= l » NROT 

NPS I!M) = !PSI ( M) /DPS I ) + .5 

T 44 TESTS TO SEE IF VAR IS IN RANGE 
CALL T44INPSI !M) ,NAI 

NSET = NR * INPSHM ) J + IM-1) * NTV 1 
DO 140 K=1,NIB 
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T45 = ( K- L ) *NA/N IB 
MSET = NSET + NR*T45 
CALL T44( MSET »NANR) 

JKL=( K-L) *NTV+(M-1)*NTV*NIB 
00 L40 L=1 *NTV1 
MSET=MSET+l 
J = J + 1 

INDXGI J)=MSET 
JKL= JKL+1 
JP1=JKL+1 
LP 1 = L + 1 

INITIALIZE SIGBL FOR BLADE LOADS 

DO 84 I ND= I > NANR 
SIGBL ( I NO ) = 0.0 
JAC = 0 

A IS THE POINT AT WHICH INDUCED VELOCITIES ARE TO BE COMPUTED. 

XA=.5*IX( 1, JKL )+X< l,JPl)) 

YA=.5*( Y( I , JKL H-Yl 1 , JP1) ) 

ZA=.5*(Z< l » JKL ) +Z I I,JP1) ) 

VZ(I» J)=0. 

J SI G=0 
M0DWK=0 
N1=NI BRV 
N2=NT V 
KX=M*K*L 

91 DO 138 J A = 1 » N1 » N2 

JS 1 GT=1 M JA-1)*NTV1/NTV 
JAC = JAC +1 

COMPUTE R FOR CURRENT BLADE 

IF (M0DWK.EQ.01 GO TO 86 
JB=JB*1 

IF (JB.bT.NTVM) J B= 1 
JAC=( JA-1I/NTVM+1 
XB=XM ( NANRM , JA ) 

YB=YM(NANRM»JA) 

ZB=ZM(NANRM, JA) 

WORK 1 = XB— XA 
W0RK2=YB-YA 
W0RK3=ZB-Z A 

RM(1)=SQRTI WORK l*WORKl +W0RK2 *W0RK2+ WORK 3* WORK 3) 

GO TO 137 
86 DO 87 JL=1,NTV 
JK = JL +J A— I 
XB=X( 1, JK) 
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YB*YI 1* JK) 

ZB*Z! 1 » JK) 

HQRK1=XA-XB 
WQRK2=YA-YB 
W0RK3=ZA— ZB 

RT=WORKL*WORKl+WORK2*WORK2+WORK3*WORK3 

87 R( JL)=SQRTIRT) 

INITIALIZE TEMPORARY STORAGE LOCATIONS. 

88 DO 89 NN=1,NTV 
LTMPI NN)=0. 

ATMPI NN)=CHORD( M) 

DTMPI NN )=0. 

89 BTMPI NN) =CHORD ( Ml 
NWM L=NW— 1 

137 SGMAZ=0. 

I NDX = NPSICM) + I JAC-1)*NA/NIB+1 
LOCATE POINTS B AND C. 

IF ( MGDWK. EQ.O ) CALL SUBI 

IF IMODWK.EQ.l) CALL SUB 1 1 1 NPER , NA , I NDX, NR , JAC , NI 8 , NROT, NTVl * VZ , 

I J A * J » JB ) 

138 CONTINUE 
MODWK=MODWK+l 
NI=NI BRVM 
N2= 1 

JB=0 

IF ( MOD WK. EQ. I • AND. NAS .GT . NANRM ) GO TO 91 
IF ( NPER.NE.4) GO TO 139 
SXG=S IGBLCMSET )*SGRATO 
SXX=ABS( SXG) 

DO 7447 IND= 1 « N ANR 

SIGBLI IND)=SIGBL( IND)*DTWOPI 

SXY=ABS( SIGBLI IND) ) 

IF I ISXY.GT.SXXI .AND.IND.NE.MSET) SI GBL I IND )=S IGBL I IND) / SXY* SXX 
7447 CONTINUE 

WRITE (4) MSET, { SIGBLI IND) , IND=1»NANR) 

WRITE ( 6 » 9876 ) MSET , I S IGBL ( IND ) * IND=1 , NA NR ) 

LNTH(ltJ) AND A(l f J), DNTHI 2* JSIG) AND B(2 y JSIG) ARE NOT 
COMPUTED UNTIL STATEMENTS 150 THRU 166. 

DNTHI 1» JSIG) AND BU,JSIG) ARE NOT YET NEEDED, AS THEY INVOLVE 
THE VORTICES AT THE BLADE AND KNOWN LENGTHS BETWEEN THE 
R I J ) S. 

COMPUTE GAMMA, INDUCED WAKE VELOCITY, EXCEPT GAMMA! 1 , J) AND 
LOAD COMPONENTS. 

139 WORKX=ABSt VZ I 1 , J) ) 
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PX=GAMFAC 

IF (WQRKX.GT.PXI VZ( 1, J)=VZ( 1* J ) /WORKX*GAMF AC 
140 GAMMKil , J) =VZ(1, J)*CCLA(M)/T WOP I+GAMMAI 1,JI 

CALL MPRECT ( INX7 , SGHA1 ,NGJR ,NG JR.NS IGRW, NS IGRW ) 
WRITE (6,9876) NPER , ( GAMMK( 1 , JX ) , JX= 1»NG JR I 
RETURN 
ENO 
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SUBROUTINE T44 t A»NA) 
INTEGER A 

1 IFIA.LT.O.O) GO TO 2 

IF(A.GE.NA) GO TO 3 
RETURN 

2 A=A + NA 
GO TO I 

3 A = A - NA 
GO TO I 
END 
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SUBROUTINE SUB I 
INTEGER OUT, WKPT,CNTR 
INTEGER T 45, WW 

REAL MXYZ, MU, MUAL T, MUSPK»MUCAT »MUSAT »MUDP »MUSDP , LLNTH»LNTH» LOADN* 
1LTMP,LSQ,MX, MY, HZ , MUCOP, MUSOS, HUCOS , 10, MB ,LX, KXX 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


A ( 05, 20) 

ALFA1 (02) 
ALFA2 ( 02 ) 

ALE AS ( 02 ) 

ALF AT ( 02 ) 
ALPHAOI 02 ) 
ALPHAR (02 ) 

AO (02 ) 

AR (02 ) 

AT (5 ) 

ATMPI 5) 

8(005, L6) 

BETA ( 03 ,2 ) 

BT( 5) 

BT MP ( 5 ) 

C ( 09 ) 

CCLA( 02) 

CHORD (02) 

OELT A ( 02 ) 

D I ( 90 ) 

0 IR ( 2 ) 

DLNTH( 016) 
DNTH ( 005, 0 16 ) 
DSQ(016 ) 

OTMP ( 016 ) 
GAMMA (05 , 016 ) 
GAMMAG( 144) 
INDXG ( 16) 
10(02 ) 

KXX( 02) 

GAMMK( 1,016) 
LLNTH ( 020 ) 
LNTH( 05,20) 
LOADN ( 020 ) 
LSQC020) 

LTMP (020 ) 

LX ( 02 ) 

MB( 02) 

MUCDP ( 02 ) 
MUCDS12) 

MUSDP ( 02 ) 
MUSDS (2 ) 

NPSI (2) 

PSI (2 ) 
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DIMENSION PSIRC 02) 
DIMENSION Rl 5 ) 

DIMENSION RBARI016) 
DIMENSION RCAP (02*5) 
DIMENSION RSMLL(02t 20) 
DIMENSION RZER0I2I 
DIMENSION SGM A1 (016*016) 
DIMENSION SGMA2 105*16) 
DIMENSION SIGBU144) 
DIMENSION SIGMXI04) 
DIMENSION SIGMYI04) 
DIMENSION SIGMZI04) 
DIMENSION T C 03 ♦ 03 ) 
DIMENSION TCORI 03,03) 
DIMENSION THTAXI02) 
DIMENSION THTAYI02I 
DIMENSION TR (09) 
DIMENSION VIIOI.OI) 
DIMENSION VX 1 05*20) 
DIMENSION VY (05,20) 
DIMENSION VZ(05,20) 
DIMENSION MK X( 0 1 » 01 ) 
DIMENSION HKY ( 0 1 f 0 1 ) 
DIMENSION WKZI01 ,01 ) 
DIMENSION X( 05*20) 
DIMENSION XROTI02) 
DIMENSION XSIMQI 016,016) 
DIMENSION XX (02 ) 
DIMENSION Y I 05 , 20 ) 
DIMENSION YROTI02) 
DIMENSION Z 1 05 * 20 ) 
DIMENSION ZAP! 16 ) 


DIMENSION ZR0TI02) 


COMMON /BETAl/BETA, MBETR,NBETC» PI »D»U,F,AS , ALPHA 1 , ALPHA2 »R0 
COMMON /BETA3/OM,OMSQ» AO, AR. VfRHOtMU 

COMMON /TEST33/ NI B ,NRGT ,NW, NB RV1 ,X , Y , Z, A, B, DNTH, LNTH,NAR, NPERt ' 

1 JS I GT »NWMK, J , NWM 1,NIBV,VX,VY,VZ,NIBRV 
COMMON /TEST55/ JL , JS I G, NTV, NT VI , M, DPS I , CHORD, RSMLL, RCAP , GAMMA, QSZ 
COMMON /WAKE 1/ VOOMR , NUWKPT » VI , WKX » WKY , WKZ , C0SB3 ,S INB3, NASI * 
INIBNAfNWKLST , NWKRW, NWKCL ,NLPl»NLP2f NLP3, NLP4»TW0PI 
COMMON /CONT/ NA ,NR , NANR , JA , J J , NN,N , S IGN, 1 1 * NGJR 
COMMON /WKiC/ PSI»CCLA,DIR 

COMMON / WK2A/ MSET , GAMMK, INDX, J AC , I NO XL , SGMAZ » S I GHZ , SGMBL 
COMMON / WK2B/ XA , YA , ZA , XB, YB ,ZB , XC , YC , ZC 
COMMON /WK2C/ SIGBL 

COMMON /SUBIB/ KX , LSQ, DSQ» OTMP , LTMP * ATMP , BT MP 
COMMON /SUBIC/ R,C,DTWOPI 
COMMON /SUBID/ I,IP1*IMI 
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COMMON /SUB IE/ NAS 
COMMON /CONVGB/ SGMA1, INDXG 

DO 135 1=1 » NWM1 

IPl=I+i 

XC=X< IPi, JA) 

YC = Y( IPI, JA) 

ZC=Z( IP1,JA) 

XB=X(I,JAI 

Y8=Y(I,JA) 

Z8=Z ( I , JA) 

NN= 1 
N= 1 

S I G N= 1 • 

J J= JA 

JS IG=JSIGT— 1 
ASSIGN 100 TO NCNTR 
WORK 1=XA— XC 
WORK2=YA— YC 
W0RK3=ZA-ZC 

RT=W0RKI*W0RK1+W0RK2*W0RK2+W0RK3*W0RK3 

COMPUTE SQUARE ROOT OF RT AT THE APPROPRIATE STEP. 

IF I NPER.NE.4 ) GO TO 90 
IGN = 0 

IF< INDX-I.GE.NA) IGN = -1 
IF( INDX-I.LT.OI IGN » 1 
INOX = I NDX +• NA * IGN 
IF ( IGN.NE.O) GO TO 85 

INDXL= (INDX-I) * NR + ( (J AC-1 )/N IB) * (NR/NROT) 

90 R S= SORT ( RT ) 

GO TO NCNTR, (100,114,115,117,118) 

COMPUTE NV*G, TRAILING VORTEX CONTRIBUTION, OR ETA*H, SHED 

VORTEX CONTRIBUTION, L2 OR D2, ANO ADD TO PREVIOUS CON- 
TRIBUTIONS FROM QUADRILATERAL FOR GAMMA! I , JS I G) . 

100 RPR=RS+R(NN) 

DQRL=(XB-XC)**2+( YB-YC)**2+* ZB-ZC)**2 
ASSIGN 94 TO I0RGT 
W0RKl=R (NNI 

VTE ST =R S*RS + WOR K1*W0RK 1-DORL 

IF (VTEST.GT.O) GO TO 101 

WORK2=RS-WORKl 

W0RK2=W0RK2*W0RK2 

WORK3=RS+WORKl 

W0RK3=W0RK3*W0RK3 

VTEST= ( W0RK3-D0RL )*{D0RL — WGRK2) /! 4. *DORL ) 
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IF (I.NE.l) GO TO 92 
W0RK1=CH0RD( M) 

GO TO 93 

92 IF (SIGN. GT. 01 WORK l=A U- 1 , J J » 

IF (SIGN. LT. 01 WORKI =8 ( I ,JSIG+1> 

93 WORK 1=W0RK1* WORKI 

IF (VTEST.GT .WORKi) GO TO 101 
H0RG=0. 

W0RK5=SQRT( DORL ) * WORKI 
IF(WORK5.NE.O.) H0RG=1 ./W0RK5 
ASSIGN 95 TO IORGT 
GO TO 103 
101 H0RG=0. 

W0RK5=R ( NN ) *RS*( RPR*RPR— DORL ) 

I F € W0RK5.NE.0. I HORG=S IGN*RPR/ W0RK5 

103 E0RNZ= ( XA-XC I * ( YC— YB l-IYA— YCI*1 XC— X Bl 
EHNGZ=EORNZ*HORG 

GO TO IORGT, (94,95) 

95 SIGM=1. 

IF (EHNGZ.LT. 0.) SIGM=-l. 

JX = JS IG 

IF (N.LE.2) JX= JSIG+l 
WORKl=GAMMAt I, JX) 

WO RK2=EHNGZ* WORKI 

IF (ABS(W0RK2).GT.l.) EHNGZ=SIGM/W0RK1 

94 SGMAZ=EHNGZ+SGMAZ 

96 IF (N-2) 102,104,106 

STORE R, L2, COMPUTE 8 FOR SHED VORTEX CONTRIBUTION. 

102 R(NN)=RS 

LLNTH(NN)=DORL 

JJ=JJ+1 

INDXL= INDXL+ 1 
X8=X(IP1,JJ) 

Y8= Yl IPi,JJJ 
ZB=Z1 IPl, JJ J 
W0RK1=XA-XB 
W0RK2 = YA-YB 
W0RK3= ZA-ZB 

R T= WORKI* WORKI +W0RK2*W OR K2+WORK3*WORK3 
N=2 

S IGN= — 1 . 

GO TO 90 

STORE 02, COMPUTE C FOR TRAILED VORTEX CONTRIBUTION. 

104 Cl 3 ) = EHNGZ 
JSIG=JSIG+1 
XC = X1 1 , JJ) 
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YC= Y( I » J J ) 

ZC=Z! I,JJ) 

N=3 

0LNTH1NN ) =DORL 
NN=NN+1 
S I GN = 1 . 

GO TO 100 

REDEFINE C. 


106 XC=XB 
YC=YB 
ZC=ZB 

IF ( I-l) 107,107,108 

GAMMA ( 1 , J ) S ARE UNKNOWN. IF 1*1, STORE SIGMA4 J , JS IG > . 

THIS IS SIGMA! 1,PSI I , J, JSIG> 

107 SGMA1 ( J, JSIG)=SGMAZ*CCLA!M)*DTWOPI 
SGM8L = SGMAZ 

GO TO 109 

GAMMA! 1,J) ARE KNOWN FOR I.GT.i. COMPUTE VZ!l,J). 

108 VZI 1,J) =VZ! 1,J) MSGMAZ-SIGMZINN-l ) ) *GAMMA ( I , JS IG ) 

IF! NPER.NE.4) GO TO 109 

SGMBL = SGMAZ - SIGMZ(NN-i) 

SGMA21I , JSIG) * SGMBL 

CONVENIENT LOCATION TO COMPUTE S IGMA! J,PSI I, I , J J ) 

POSSIBLE ADDED CODING 

109 SIGMZINN-1 )=C!3 ) 

IF {NPER.NE.4) GO TO 112 
S I GBL ! INDXL ) = SGMBL + SIGBL1INDXLI 

IF THE ROW IS NOT COMPLETED, STORE SGMAZ AND CONTINUE WITH VZ 
COMPUTATION. 

112 IF INN.GT.NTV1) GO TO 111 

110 SGMAZ=-EHNGZ 
GO TO 102 

COMPUTE NEW VORTEX CORE RADII FOR I.GT.I, OTHERWISE STORE L2 
AND D2. 

111 R { NN) =RS 
SGMAZ=0. 

LLNTH ( NN) =DORL 

IF ! KX. GT .1 ) GO TO 135 
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IF II.LE.l) 00 TO 122 

IM1=I— l 

NN*i 

N IS REPLACING J FROM STATEMENTS 111-138. 

N-JA 

JSIG* JSIGT 

113 RT=LLNTHI NN) 

RS«SQRTIRT) 

STORE L. 

114 LLNTHI NNI =RS 
RT=LNTHI 1-1 , NI/RS 
RS=SQRTIRT) 

COMPUTE TRAILING VORTEX CORE RADII. 

115 ATI NN )=RS*AI 1—1 ,NI 

IF (NN.GT.NTV1) GO TO 119 

THERE IS NO BINTV) SO DO NOT COMPUTE IT, OTHERWISE COMPUTE B 
TRAILING VORTEX CORE RADII. 

116 RT*DLNTH(NN> 

RS=SQRT(RT) 

117 RT=DNTHI I ,JSIG1/RS 
DLNTH I NNI=RS 
RS=SQRT(RT» 

118 BT ( NN >=RS*B 1 1 ,JSIG) 

N=N+ 1 

JSIO=JSIO+l 
NN=NN+1 
GO TO 113 

MAKE PERMANENT STORAGE OF L AND D, A AND B. 


119 IM1= I -1 
N= JA- 1 

DO 120 NN*1 , NTV 
N=N+1 

LNTHI l Ml *NI *LTMPI NN I 
LTMP(NN)=LLNTHINN» 

A( 1-1 ,N)=ATMP(NN» 
ATMPI NN)=AT INN) 

120 CONTINUE 
JSIG=JSIGT— 1 

DO 121 NN=1,NTV1 
JSIG=JSIG+l 
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DNTH( It JSIGJ=DTMP<NN J 
DTMPC NNI*DLNTH( NNI 
B(I ,JSIG)=BTMP(NN) 

BT MP I NN )* BT I NN I 

121 CONTINUE 
GO TO 135 

STORE L**2» D**2 FOR 1*1, ALL J, FOR DEFINITION OF A AND B 
AFTER CIRCULATIONS ARE COMPUTED 

122 JNTV* JA+NTV1 
NN=0 

DO 124 JJ*JA, JNTV 
NN=NN+1 

LSQ ( J J ) =LLNTHI NN) 

124 CONTINUE 

JSIGI=JSIG-NTVH-1 

NN=0 

DO 126 J J*JS IGI* JS1G 
NN=NN+1 

DSQ( J J )*DLNTH(NN } 

126 CONTINUE 
135 CONTINUE 

IF (KX.GT.l) RETURN 
N* JSIGT-l 
DO 139 NN=1 , NTV1 
N=N+1 

DNTHI NW,N)*DTMP(NN) 

B( NM, NI *BTHP{ NN) 

139 CONTINUE 
N=JA— 1 

DO 141 NN=1 , NTV 
N=N+i 

LNTH ( NW-1 , NI=LTMP( NN) 

A(NW-1,N)=ATMPINNI 

IF (NW. EQ.2.AND.NAS.EQ.1) AI NW, N )=CHORD ( M ) 

141 CONTINUE 
RETURN 
END 
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SUBROUTINE SUBI I C NPER, NA, INDX.NR, J AC, NIB ,NROT, NTVl , VZ , JA . J , JB) 


INTEGER OUT ,WKPT,CNTR 
INTEGER T45,WW 

REAL MXYZ, MU *MU ALT • MUSPK, MUCAT * HUS AT * MUDP ,MUSDP* LLNTH»LNTH» LOADN , 
1LTMP,LSQ»MX» MY , MZ , MUCDP, MUSDS»MUCDS ,10, MB, LX, KXX 

DIMENSION VLLU6) 

DIMENSION VZ ( 05 1 20) 

COMMON /MOOCNT / NTVM ,NWSTRE ,NWR ,NANRM,NI BRVM, NI BV 
COMMON /MQDWK1/ GAMMA C54,16I,R III, A I 05, 16) ,VXMC 54, 16) , 
1VYM154.I6) ,VZM(54,16) ,X 154, 16), Y 154, 16), Z (54,16) 

COMMON /M0DWK3/ AFM( 4 , 10) , BfM< 4,4) 

COMMON /VLNTHS/ NAL IM, VLL 
COMMON /WK2C/ SIGBL(144) 

COMMON /WK2B/ X A, YA , ZA ,XB, YB ,ZB , XC , YC ,ZC 

EL=VLLI JA) 

TW0EL=2.*EL 
RSQ=R (1 ) *R( l) 

NSW=— 1 

NWSTM1=NWSTRE— 1 
I=NANRM-l 
70 1=1+1 
IP1=I+1 
XC=X( IP1 , JA) 

YC=Y( IP1, JA) 

ZC=Z( IPl, JA) 

W0RK1 =XA— XC 
W0RK2=YA— YC 
W0RK3= ZA-ZC 

RT= WORK 1 * WORK 1+WORK2*WORK2+WORK3*WORK3 

IF (RT.GT. TWOEL) GO TO 86 

IF CRSQ.LT.EL) GO TO 84 

IF (RT.LT.EL) GO TO 84 

NSW = 0 

GO TO 134 

86 I=I+NALIM 
NSW= 1 

GO TO 134 

84 IF (NSW-LT.l) GO TO 87 
1= I -NAL IM 
NS W=— 1 
GO TO 135 

COMPUTE SQUARE ROOT OF RT AT THE APPROPRIATE STEP. 

87 XB=X( I, JA) 

YB=Y( I, JA) 

ZB=Z( I, JA) 
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85 


NSW-- 1 
NN= L 
N=1 

S IGN=1 • 

JJ=JA 

IF ( NPER.NE.4 ) GO TO 90 
IGN = 0 

IF < INDX-I.GE.NA) IGN = -1 
I F ( INOX-I.LT.O) IGN = 1 
INDX = INDX ♦ NA * IGN 
IF ( IGN.NE. 0) GO TO 85 

INDXL= (INDX-I) * NR ♦ ( (JAC-1 I/NIB) * ( NR/NROT ) 

C 

90 RS= SORT IRT ) 

GO TO 100 

COMPUTE NV*G, TRAILING VORTEX CONTRIBUTION. OR 
VORTEX CONTRIBUTION. L2 OR D2. AND ADO TO 
TR I8UTIQNS FROM QUADRILATERAL FOR GAMMAII 

100 RPR=RS+R (NN ) 

DORL = ( XB- XC ) **2*( YB-YC )**2+I ZB-ZC>**2 
ASSIGN 94 TO IQRGT 
WQRK1 =RINNI 

VTE ST=RS*RS+ WORK 1* WORK 1— DORL 
IF (VTEST.GT.O) GO TO 101 
W0RK2=RS-W0RK1 
W0RK2=W0RK2*W0RK2 
W0RK3=RS+W0RK1 
WORK3=WORK3*WORK3 

VTEST=( W0RK3-D0RL J*(DCRL -W0RK2) / ( 4.+D0RL I 

92 IF ( S IGN.GT • 0) W0RK1=A INANRM.J J ) 

93 WORK 1 = WORK l* WORK 1 
IF (VTEST.GT.W0RK1) GO TO 101 
H0RG=0. 

WQRK5=S QRT ( DORL ) *WORK 1 
IF ( WORKS. NE.O.) HORG= 1 ./ WORK 5 
ASSIGN 95 TO IORGT 
GO TO 103 
101 HORG=0. 

W0RK5=R ( NNI *RS*I RPR*RPR— DORL ) 

IF( WORK5.NE.O. > HORG=S IGN* RPR/ W0RK5 
103 EORNZ=( XA— XC ) * ( YC— YB ) — (YA-YCI*( XC-X B ) 
EHNGZ=EORNZ*HORG 
GO TO IORGT. (94,95) 

95 SIGM=1. 

IF (EHNGZ.LT. 0.1 SI GM=— 1 . 

W0RK1=GAMMA( I.JA) 

W0RK2=EHNGZ*WGRK1 

IF ( ABS ( W0RK2 ) . GT • 1 • ) EHNGZ=SIGM/W0RK1 


ET A*H, SHED 
PREVIOUS CON- 
JA) . 
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94 SGMAZ*£HNGZ 
102 R( NN) =RS 

GAMMA! I* J) S ARE UNKNOWN. IF 1*1* STORE SIGMAI J, JSIG) . 
THIS IS SIGMAd* PSUtJtJSIG) 


GAHHA( 1 * J ) ARE KNOWN FOR I.GT.l. COMPUTE VZtl*J). 

108 VZI1. J)=VZ( 1*J l+CSGMAZ >*GAMMA< I * JA) 

IF ( NPER.NE.4I GO TO 111 
SGMBL = SGMAZ 

CONVENIENT LOCATION TO COMPUTE SIGMA! J,PSI I* I* J J » 

DO 107 J Z= 1 » NT V 1 
MOD I NX* I NDXL+JZ 

107 S IGBL ( MODINX )=-SGMBL*BFMI JB * JZ I +SIGBL I MODINXI 

IF THE ROW IS NOT COMPLETED* STORE SGMAZ AND CONTINUE WITH VZ 
COMPUTATION . 

Ill RINN)*RS 

134 RSQ*RT 

135 IF (I.LT.NANRM) GO TO 140 
IF ( I.LT.NWSTM1I GO TO 70 

140 RETURN 
END 
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SUBROUTINE CONVG 


C 


INTEGER OUT , WKPT ,CNTR 
INTEGER T45 » WW 

REAL MXYZ,MU,MUALT, MUSPK.MUC AT ,MUSAT ,MUDP »HUSDP, LLNTH.LNTH, LOADN, 
1LTMP,LSQ,MX,MY, MZ , MUCDP, MUSDS, MUCDS , IO,MB,LX,KXX 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


AI 05,20) 

ALFAI (02) 
ALFA2 ( 02 ) 
ALFASI02I 
ALFAT <02 ) 
ALPHAOt 02 ) 
ALPHAR (02 ) 

AO (02 ) 

AR( 02) 

AT ( 5 ) 

ATMP< 5) 
8(005,16) 
BETA( 03 ,2 ) 

BT ( 5) 

BTMPI5) 

C ( 09) 

CCL A( 02 ) 

CHORD ( 02 ) 
DELTA! 02) 
01(90) 

DIR<2) 
DLNTHI016) 
DNTHI 005,016 ) 
DSQ< 016) 

0 TMPI016) 
GAMMA (05,016 ) 
GAMMAG( 144) 
GAMMK( 1,016) 

I NOXG ( 16 ) 
10 ( 02 ) 

KXXI02) 

LLNTH ( 020 ) 
LNTH( 05 , 20 ) 
LOADN ( 020 ) 

L SQ( 020) 

LT MP( 020 ) 

LX( 02 ) 

M B (02 ) 

MU CDP(02) 
MUCDS( 2 ) 

MUS DP ( 02 ) 
MUSDS (2 ) 

NPSIf 2) 
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DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PSI (2) 

PSIR (02) 

RI5I 

RBARI016) 
RCAP(02»5) 
RSMLL ( 02 , 20 ) 
RZER0I2) 

SGMA1 (016,016) 
SGMA2I 05, 16) 
SIGBU144) 
SIGMX (04) 

S IGMV ( 04) 

S IGMZ (04) 

T ( 03, 03 ) 

TCOR ( 03,03 ) 
THTAX(02) 
THTAYt 02) 

TR(09 ) 

VI (OL ,01 ) 

VX ( 05 ,20) 

VY (05 ,20) 

VZ ( 05 ,20) 
WKX(01,0L) 

WKY( 01 ,01 ) 

WKZ( 01,01) 

X( 05 ,20 ) 

XROTi 02) 
XSIMQ(016,016) 
XX (02 ) 

Y ( 05,20) 

Y ROT ( 02 ) 

Z( 05,20 ) 

ZAP ( 16) 

ZROT ( 02 ) 


COMMON / ITRG/ ITRGX 

COMMON /BETA1/BET A.MBETR, NBETC , PI ,D,U,F,AS, ALPHA 1 , ALPHA2 , RO 
COMMON /BETA2/ XSIMQ,ZAP, NGJ J , Ml , DETERM 
COMMON /BET A3/0M,0MSQ, AO,AR»V*RHO» MU 

COMMON / TEST33/ NIB, NROT , NW» NBRV1 »X , Y , Z, A, B,DNTH,LNTH,NAR,NPER, 
IJSIGT jNWMKtJ, NWM 1 ,N IBV ,VX, VY, VZ , NIBRV 
COMMON /TEST55/ JL,JSIG,NTV,NTV1 ,M,DPSI .CHORD, RSMLL, RCAP , GAMMA, QSZ 
COMMON /MAKE 1/ VOOMR , NUWKP T, VI , WKX , WKY.WKZ , C0SB3 » SI NB3 ,NAS1 , 

INI BNA , NWKLST , NW KRW , NWKCL ,NLP1,NLP2, NLP3 , NLP4, TWOP I 
COMMON /CONT/ NA ,NR ,NANR , JA, JJ , NN,N ,S IGN, 1 1 ,NGJR 
COMMON /CONVGA/ EPSG.NWKRQ 
COMMON /CONVGB/ SGMA1 , INDXG 
COMMON /CONVGC/ GAMMAG 

COMMON /WK2 A/ MS ET , GAMMK, INDX, J AC, I NDXL, SGMAZ • SIGMZ , SGMB L 
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COMMON 

COMMON 

COMMON 

COMMON 

C 

9876 FORMAT 

950 FORMAT 

951 FORMAT 


✓WK2C/ SIGBL 
/OUT IN/ IN, OUT 
/SU8IE/ NAS 

/STEPXA/ WKPT , WW, I OUT ,N0TTP1 ,KAT , NBC 

!1H0,/8!1X,G14.7) I 

C13H ITG DIVERGES, 215, 2E14. 7) 

( I5,E12.4,31H GAMMAS HAVE CONVERGED 


MSET* 


, 110 ,/) 


COMPUTE NEW GAMMA! 1 , J ) USING ITERATION SCHEME ON AN EQ OF THE 
FORM G=GL+GV+C*SUM< ! SIG+G) ) 

NGJJ=NGJR 
N=1 
M1 = 0 
ITR=0 

142 GD I =0 . 

G=0. 

ITR=ITR+1 
DO 145 J=1 » NGJR 
GDI F=GAMMA( 1, J) 

XK=0. 

DO 144 K=1 , J SIG 

144 XK=SGMA1( J,K)*GAMMA! l.KM-XK 

GAMMA! 1,J)=(GAMMK( 1 , J ) +XK-SGMA1 I J, J ) *GAMMA! 1,J) )/! 1.-SGMA1! J, J) ) 
GDI = I GO IF -GAMMA! 1 , J ) )**2+GDI 

145 G=G+GAMMA! I, J i**Z 
GTEST=GDI /G 

IF IGTEST.LE.EPSG) GO TO 150 

IF GAMMAS CONVERGE, CONTINUE, OTHERWISE ITERATE AGAIN UNLESS 
ITR EXCEEDS UPPERLIMIT. 

146 IF ! ITR.LT.ITRGX) GO TO 142 
148 WRITE ! OUT, 950) I TR, I TRGX,GTEST,EPSG 

IF IMl.EQ.l) STOP 
DO 152 J=1 ,NGJR 
DO 152 K= 1, J SI G 

152 XS I MQ I J , K) =— SGMA1 ! J , K ) 

DO 153 J = 1 » NGJR 
ZAPIJ )=GAMMK 1 1, J ) 

153 XSIMQIJ, J)=1.+XSIMQ! J,J) 

I TR=0 
Ml=l 

CALL MATINV 
DO 147 J=1 , NGJR 

147 GAMMA!1,J)=ZAP! J) 

GO TO 142 

C 
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GAMMAS HAVE CONVERGED 

150 WRITE (OUT, 951) ITR, GTEST , HSET 

WRITE (6,9876) XK, ( ( GAMMA( I X, JX) , I X»l, N) , JX«1 ,NGJR) 

IF (NPER.EQ.4) GO TO 157 
RETURN 

157 DO 164 J=1,NGJR 
M*INDXG( J) 

164 GAMMAGC M)=GAMMA(1,J) 

IF ( NAS . EQ.WW+ ( NA/NIB ) -1 ) WRITE CN0TTP1I (GAMMAGC J) , J~1,NANR I 
IF (NAS .EQ. WWM NA/NI B)— 1 ) WRITE (6,9876) I GAMMAGC J ) ,J«l ,NANR) 
RETURN 
END 
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SUBROUTINE AL1BD2 
INTEGER OUT t WKPT ,CNTR 
INTEGER T45 , WW 

REAL MXYZ »MU»MUALT*MUSPK,HUCAT »HUSAT , MUDP,MUSOP, LLNTH,LNTH,LOADN, 
1LTMP, LSQ, MX, MY,MZ ,MUCDP» MUSOSt MUCDS, 10, MB »LX,KXX 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


A( 05y 20) 

ALTAI (02) 
ALFA2C02) 
ALFASI02) 
ALFAT (02 ) 
ALPHAO( 02 ) 
ALPHAR (02 ) 
A0(02 ) 

AR (02 ) 

AT (5 ) 

ATMP( 5) 

B( 005* 16 ) 
BETA! 03,2 ) 

BT ( 5) 

BTMP( 5 ) 

C ( 09) 

CCLAl 02) 

CHORD (02 ) 
DELTA(02 ) 

DI (90 ) 

DIR(2 ) 

DLNTHI 016) 

DNTH(005,016) 

DSQI016) 

DTMP (016) 
GAMMA(05* 016 ) 
GAMMAGI 144) 
GAMMK (1,0 16 ) 
INDXG( 16 ) 
10 ( 02 ) 

KXX (02) 

LLNTH ( 020 ) 
LNTH ( 05 ,20) 
LOADN(020) 
LSQ( 020 ) 

LTMP( 020) 

L X ( 02 ) 

MB( 02 ) 

MUCDP (02) 
MUCDS (2) 

MUSDP ( 021 
MUSDS (2) 
NPSI(2) 

PSI (2) 
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DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PSIRI02) 

R 1 5 ) 

RB AR 1016) 

RC AP( 02 , 5 ) 

RS MLL 1 02f 20 ) 

R ZERO 1 2 1 

SGMA1(016,016) 

SGMA2 105* 16) 

SIGBLI 144) 

SIGMXI04) 

SIGMYC04) 

SIGMZI04) 

T 1 03, 03) 

TCORI 03,03) 
THTAXI02) 

THTAY ( 02 ) 

TRI 09) 

VI 101,01) 
VXI05.20) 

VYI 05,20) 
VZ(05,20) 
WKX(Ol.Ol) 

WK Y (01,01) 
WKZIOl ,01 ) 

XI 05,20) 
XROTI02) 

X SI MQ I 016,016) 
XXI02) 

Y I 05 ,20 ) 
YROTI02) 

Z ( 05, 20) 

ZAP 1 16 ) 
ZR0TI02) 


COMMON /BET A 1/BET A, MBE TR,NBETC,PI ,D ,U,F, AS , ALPHA1 , ALPHA2 ,R0 
COMMON / BETA3/0M,0M SO, AO,AR , V,RHO, MU 

COMMON /TEST33/ NIB ,NROT ,NW , NBRV1 ,X ,Y , Z, A, B, DNTH, LNTH,NAR,NPER, 
1JSIGT ,NWMK,J,NWM1 ,NI B V ,VX, VY ,VZ » NI BRV 
COMMON /TEST55/ JL ,JSIG,NTV,NTV1,M,DPSI , CHORD, RSMLL,RCAP, GAMMA, QSZ 
COMMON /WAKE1/ VOOMR,NUWKPT , VI ,WKX , WKY, WKZ, C0SB3, S INB3.NAS 1 , 
1NIBNA»NWKLST »NWKRW» NWKCL»NLP 1, NLP2 , NLP3 , NLP4, TWOPI 
COMMON /CONT/ NA, NR ,NANR, JA, JJ,NN,N,S IGN, I I.NGJR 
COMMON /AL1BDA/ ABK 

COMMON /SUBIB/ KX ,LSQ, DSQ,DTMP,LTMP ,ATMP,BTMP 


PERFORM FLOW PERIODICITY CHECK. IF NOT PERIOOIC CHECK TIME 

LIMIT (GO TO 446). IF PERIODIC CHOOSE ONE OR MORE OF (A) 
COMPUTE SIGS FOR BLADE LOADS ON BASIS OF SMALLER 
SPACING, IB) COMPUTE FLOW FIELO, NOT AT VORTEX END 
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POINTS* AND IC» OTHER 


COMPUTE A( 1 , J ) « B(2,J), L(I,J), AND 0(2, J) 


J J=0 
JS IG=0 
NN=0 

151 JJ=JJ+1 

RT=LSQ(JJ> 

RS=SQRT ( RTI 
LNTH( 1 , J J ) =R S 
NN=NN+l 

IF (NN.GT.l) GO TO 158 
JSIG= JSIG+1 

154 RT=ABS ( GAMMA ( 1 , JS IG ) ) 

IF ( JJ.LT.NIBRV) GO TO 155 
RS=SQRT( RT ) 

GO TO 162 

155 RS=SQRT(RT> 

VORTEX CORE RADIUS IS CONSTANT TIMES C IRCULAT ION** .5 

156 A(1,JJ)=RS*ABK 
GO TO 151 

158 IF INN-NTV) 160,159,162 

159 NN=0 

GO TO 154 

160 JSIG=JSIG+1 

RT=ABS( GAMMA ( 1 , JS I G I -G AMMA ( 1,JSIG-1)) 

RS=SORT (RTI 
GO TO 156 

162 All , J J ) -RS*ABK 
JJ = 0 

163 JJ=JJ+l 
RT=DSQ( J J) 

RS=SQRT( RT) 

ONTH( 2, JJ ) = RS 

RT = ABS( GAMMA ( 1 , J J I— GAMMA ( 2 , J J ) ) 

RS= SORT ( RT) 

B ( 2 , J J ) =RS*ABK 

IF ( JJ.LT.NGJR) GO TO 163 

RETURN 

ENO 
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SUBROUTINE APXLD 
INTEGER OUT * WKPT tCNTR 
INTEGER T45 * WW 

REAL MXYZyMU *MUALT *MUSPK,MUCAT * HUS AT *MUDP *MUSDP, LLNT H*LNTH* LOADN* 
lLTMPyLSQy MX * MY* MZ* MUCDP*MUSDS* MUCDS *IQ* HB*LX* KXX 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


At 05*201 
ALFAK02) 
ALFA2I02) 
ALFASt 02) 
ALFAT (02) 
ALPHAOI 02) 
ALPHARt 02) 

AO (02 ) 

AR ( 02 ) 

AT 15) 

ATMP (51 
B( 005* 16) 
BETAt 03* 2 ) 

BT( 5) 

BTMP( 5) 

C ( 09 ) 

CCLA ( 02 ) 
CH0RD(02) 
DELTA(02 I 
D I ( 90 ) 

D IR ( 2 ) 

DLNTH ( 016 ) 
DNTH( 005,016) 
DSO( 016 ) 

DTMPt 016) 
GAMMA! 05*016) 
GAMMAGt 144 ) 
GAMMK( 1 ,016) 

I NDXG( 16) 
10 ( 02 ) 

KXX( 02) 
LLNTH(02Q ) 
LNTH( 05*20) 

LO AON ( 020 ) 
LSQI020) 

LTMP( 020) 

LX (02 ) 

MB (02) 

MUCDP! 02) 
MUCDS ( 2 ) 

MUSOP ( 02 ) 
MUSDS ( 2 ) 
NPSK2) 

PSI ( 2 ) 
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DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PS1RI02) 

R< 5) 

RBAR(016> 

RCAPI 02 *5 ) 
RSMLL 1 02 * 20 % 
RZER0I2I 
SGMAK 016,016) 
SGMA2I05, 16) 
SIGBL(144) 
SIGMXI04) 
SIGMYI04) 
SIGMZI04) 

T (03*03) 

TCOR 1 03 »03 ) 

THTAXI02) 

THTAYI02) 

TRI09) 

VHOl.Ol) 

VXI05.20) 

VY (05,20) 
VZ(05 f 20) 

WKX ( 01 • 01 ) 

WKY ( 0 1 f 01 ) 

WKZ (01,01) 

X ( 05,20 ) 

XROT ( 02 ) 
XSIMQ(0 16,016) 
XX ( 02 ) 

Y ( 05, 20 ) 

YROT ( 02 ) 

Z( 05,20) 
ZAPI16) 

ZROT ( 02 ) 


COMMON /8ETA3/QM ,OMSQ , AO , AR, V,RHO»MU 

COMMON /TEST33/ NI B , NRCT ,NW , NBRVi , X , Y ,Z , A, B,DNTH , LNTH,NAR,NPER , 

1 JSIGT,NWMK, J,NWM1,NIBV,VX,VY,VZ,NIBRV 
COMMON /TEST55/ JL, JSI G,NTV, NT Vi, M, DP SI , CHORD, RSMLL, RCAP , GAMMA, QS 
COMMON / APXLDA/ RBAR 
COMMON / APXLOB/ LOADN 

COMMON / WK1 A/ PSI R ,DPSI K ,PSI K, DELTA ,RREF ,MUCDS, MUSDS , THTAX, THTAY 
COMMON /WK1C/ PSI, CCL A , D IR 

DEFINE APPROXIMATE BLADE LOADS 

NONDIMENS IONAL FORM=( RHO*U*GAMMA ) / ( RHO*OM*QN*R*R*R ) 

170 DO 180 M=1,NR0T 
DO 180 K=1 ,N I B 
PSIK=PSIR(M) +( K— l I *DPS IK 
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MUSPK=MU*SINIPSICM)*PSIK» 

JJ=0 

00 180 J= I* NTV1 
JJ=JJ+1 

L0ADN( JJI=IRBAR( JJ1 +MUSPK*DI R< M) )*GAMMA! 1,JJ) 

180 CONTINUE 

LOAON IS NON-DIMENSIONAL 
LOAOOI J J )— LOADNI J J ) *DFLOD 

WRITE EITHER LOAON OR LOADD AFTER COMPUTATION, BUT DO NOT USE 
BOTH. LOADNI JJ) AND VZ(J) COULD BE EQUI VALENCED. 

RETURN 

END 
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SUBROUTINE WK3 
INTEGER OUT *WKPT ,CNTR 
INTEGER T45,WW 

REAL MXYZ »MU» MU ALT , MUSPK *MUCAT » MUSAT , MUDP»MUSDP* LLNTH*LNTH,LOADN» 
1LTMP *LSQ »MX « MY* MZ » MUCDP*MUSDS» MUCDS *10* MB *LX *KXX 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


A ( 05*20) 

ALFAK02) 

ALFA2I02) 

ALFASI02) 

ALFAT { 02 ) 

ALPHA0102) 

ALPHAR C 02 ) 

AO (02) 

ARI02) 

ATI 5) 

ATMP ( 5 ) 

BI005 *16) 
BETA! 03*2 ) 
BTI5I 
BTMPI5) 

C 1 09 ) 

CCLAI02) 
CHORD! 02) 
DELTAI02) 

DI 190) 

DIRI2) 
DLNTHI0L6 ) 
DNTH I 005*016) 
DSQ (016) 
DTMPI0I6) 
GAMMA! 05*016) 
GAMMAG! 144) 
GAMMK (1*016) 
INDXG! 16) 
I0!02) 

KXX! 02) 
LLNTHI020 ) 
LNTH! 05*20) 
LOAON! 020 ) 
LSQ(020 ) 

LTMP ! 020 ) 

LX{ 02) 

MBI02) 

MUCDP ( 02 ) 
MUCDSI2) 
MUSDP(02 ) 
MUSDS! 2 ) 
NPSII2) 

PSI (2 ) 



o o 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


PSIRI02) 

R( 51 

R8ARI016) 

RC AP ( 02 » 5 I 
RSMLLI 02*20) 
RZER0I2) 

SGMA1 (016*016) 

SGMA2I05, 16) 

SIGBL(144) 

SIGMX( 04) 

SIGMYI04) 

SIGMZC04) 

T(03*03) 

TCOR(03» 03) 

THTAXI 02 ) 

THTAYI02) 

TRI09) 

VI (01 >01) 

VX (05 >20) 
VXX(1,1) 

VY ( 05 >20) 
VZ(05,20) 
WKX(Ol.Ol) 
WKY(01, 01) 
WKZ(Ol.Ol) 

X( 05> 20) 

XROT ( 02 ) 
XSIMQ(016,016) 
XX( 02 ) 

Y (05> 20 ) 

YROT ( 02 ) 

Z ( 05 > 20) 

ZAP( 16) 

ZROT ( 02) 


COMMON /BETA1/BETA>MBETR, NBETC, PI ,D,U, F, AS, ALPHAl, ALPHA2.R0 
COMMON /BET A3/QM ,OMSQ > AO » AR> V.RHO.MU 

COMMON /TEST33/ NI B , NROT.NW, NBRV1 ,X , Y ,Z , A, B ,DNTH, LNTH.NAR.NPER » 
IJSIGT.NWMK, J,NWM1,NIBV,VX, VY,VZ,NIBRV 
COMMON /TEST55/ JL, JSIG,NTV,NTV1,M,DPSI ,CHORD>RSMLL>RCAP .GAMMA. QSZ 
COMMON / WAKE1 / VOQMR .NUWKPT , VI > WKX > WKY, WKZ, C0SB3, SINB3.NAS1, 

IN I BNA tNWKLST > NWKRW, NWKCL ,NLP 1, NLP2 > NLP3, NLP4, THOPI 
COMMON /CONT/ NA, NR.NANR, J A, JJ , NN,N, S IGN > 1 1 ,NGJR 
COMMON /CONVGA/ EPSG.NMKRQ 
COMMON /WKCONT / NWKPD 

COMMON /STEPXA/ WKPT> MM, IOUT ,NOTT PI >KAT > NBC 
COMMON /WK4A/ VXX 

COMMON /OUTOI/ NNTV .NEXPWK , NSIGRW.NMODR.NMODC 

COMMON /M0DWK1 / GAMMAM (54,16 ) , RM ( l ) * AM(05 , 16 ) , VXM ( 54> 16 ) > 
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IVYM(54,16) ,VZM< 54,16 ),XM (54,16 ),YM< 54,16 ),ZM( 54, 16) 
COMMON /MODCNT/ NTV M , NWSTRE , NWR , NANRM , N I BRV M , N I BM 
COMMON /OUTDI I / NWKCLM 

DATA INX1 , I NX2 , INX3, INX4, INX5, INX6, INX7/ 

14H X,4H Y,4H Z,4H VX,4H VY,4H VZ,4HSIGA/ 
DATA NWKXfNWKY, NWKZ/3HWKX,3HWKY , 3HWKZ/ 

LOAON(JJ) COULD BE LOADD(JJ) 

IF ( NWKRQ.EQ. 1. AND* NPER.EQ.4 ) GO TO 192 
GO TO 189 
192 NLP1=1 
NLP2= 1 
NLP3=NWKCL 
NLP4=NWKRW 
CALL T3A 

DO 186 JX-1 , NWKCL 
DO 186 I X=1 , NWKRW 

IF (IX. GT.NWKLST. AND. JX.EQ. NWKCL) GO TO 191 
VXXIIX, JXI=-VZ(IX,JX)*C0SB3+VX< IX,JX)*SINB3 

186 VI ( IX,JX)=VXX< IX, JX)*VI (IX,JX) 

191 CONTINUE 

CALL MPRECT (NWKY ,VXX , NWKRW , NWKCL , NWKRW , NWKCLM) 
NAS1=NASH-1 

IF (NAS1.LT.NIBNA) GO TO 188 

COMPUTE WAKE FLOWS 

VONA=NIB/( VOOMR*NAJ 
DO 187 JX=1, NWKCL 
DO 187 IX=1, NWKRW 

IF (IX.GT.NWKLST. AND. JX.EQ. NWKCL) GO TO 190 

187 VI < IX, JX)=VONA*VI ( IX, JXI 
190 CONTINUE 

CALL MPRECT I NWKX, V I , NWKRW, NWKCL , NWKRW, NWKCLM) 

KAT=*l 

188 NLP1=NR0T 
NLP2=NI 8 
NLP3=NTV 


SET WAKE AZIMUTHAL INDEX LIMIT 

189 NLP4=NW 
NPER=1 
CALL T3A 
NPER=NWKPD 

IF (NWKPD.NE.4) GO TO 377 
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CALL 

MPRECT 

CALL 

MPRECT 

CALL 

MPRECT 

CALL 

MPRECT 

CALL 

MPRECT 

CALL 

MPRECT 

CALL 

MPRECT 

CALL 

MPRECT 

CALL 

MPRECT 

CALL 

MPRECT 

CALL 

MPRECT 

CALL 

MPRECT 

377 CONTINUE 


RETURN 

END 


(INX4,VX,NW,NIBRV,NEXPWK,NNTV) 

( INX5,VY,NW»NIBRV,NEXPWK, NNT V ) 

( INX 6 1 VZ»NW»NIBRV,NEXPWK, NNTV } 

( 1NX1 , X,NW,NIBRV,NEXPWK,NNTV> 

CINX2 ,Y,NW»NIBRV»NEXPWK f NNTV) 

(INX3 . Z, NW ,NI BRV « N EXP WK t NNTV ) 

( I NX4 , V XM, NWSTREtNIBRVMt NMODR * NMODC I 
f I NX5 »VYM, NWSTRE »N I BRVM* NMODR, NMODC) 
( INX6,VZM, NWSTRE, N I BRVM,N MOOR, NMODC) 
( I NX1 , XM , NWSTRE »NI BRVM , NMODR , NMODC ) 

( INX2 ,YM« NWSTRE , Nl BRVM, NMODR , NMODC) 
U NX3 ,ZM, NWS TRE.NI BRVM, NMODR, NMODC I 


SUBROUTINE T3A 
INTEGER Z2 

INTEGER OUT.WKPT.CNTR 

REAL MXYZ, MU, MU ALT , MUSPK,MUCAT ,MUSAT , MUDP »MUSDP, LLNTH*LNTH» LOADN, 
1LTMP,LSQ,MX, MY,MZ,MUCOP,MUSDS,MUCDS 


DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DI MENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


AI 05,20) 

ALFA1I02) 

ALFA2I02) 

AL FAS C 02 ) 

ALF AT (02 ) 

A0< 02 ) 

AR (02 ) 

AT ( 5 ) 

ATMPI5) 

B(005 ,16) 
BETA(03,2) 

BT ( 5 ) 

BTMP( 5 } 

C( 09) 

CCL A( 02 ) 
CH0RD(02) 
DELTA! 02) 
DLNTH(016 ) 

DNTH (005,016) 
DSQ(016) 
DTMP(016 ) 

GAMMA ( 05,016) 
GAMMKI 1,016) 
LLNTH (020 ) 
LNTH( 05, 20) 
LOADN(020 ) 

L5Q( 020 ) 
LTMP(020) 

MUCDP ( 02 ) 

MUCDS ( 2 ) 
MUSDP(02> 

MUSDS ( 2 ) 
PSIR(02) 

R(5) 

RB AR( 016) 

RC AP( 02 » 5 ) 
RSMLL (02,20) 
SGM Al (016,016) 
SIGMX(04) 
SIGMY(04) 

S I GMZ ( 04 ) 

T ( 03 ,03 ) 

TCOR( 03,03) 

THT AX ( 02 ) 
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C 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


THTAY( 021 
TR (09 1 
VI (01,01) 
VX(05,20) 
VY( 05, 20) 
VZ( 05,20) 
WKX (01,01 ) 
WKY (01 ,01 ) 
WKZf 01,01) 
X (05,20 ) 
XROT ( 02 ) 

Y ( 05, 20) 
YROT (021 
Z( 05,20) 
ZROT ( 02 ) 


COMMON /TEST33/ N I B , NROT ,NW ,NBRV1 , X , Y , Z , A, B ,DNTH, LNTH,NAR,NPER, 
1JSIGT ,NWMK, J, NWM1 ,NIBV,VX, VY,VZ,NIBRV 
COMMON /TEST55/ JL , JSI G, NT V, NT VI ,M ,DPSI , CHORD, RSMLL,RCAP, GAMMA, QSZ 
COMMON /WAKE1/ VOOMR , NUWKP T, VI , WKX, WKY, WKZ , C0SB3 , SI NB3,NA SI , 

INI BNA ,NWKLST ,NWKRW,NWKCL,NLP1,NLP2,NLP3, NLP4, TWOP I 
COMMON /MODCNT/ NTVM ,NWSTRE , NWR , NANRM,N IBRVM, NIBM 
COMMON /MODWKl/ GAMMAM ( 54, 16 ) , RM ( 1 ) , AM( 05 , 16) , VXM( 54, 16 ) , 
1VYM(54,16) ,VZM(54,16) ,XM(54,16) ,YM(54,16) ,ZM(54,16) 

COMMON /SUB IE/ NAS 

COMMON /WK2B/ XA,YA,ZA,X8,YB,ZB,XC,YC,ZC 
COMMON /0VT3A/ Z2 , 1 1 
COMMON /0VT3B/ IROW , J AKM, K, L 
COMMON /0VT3F/ JPASS 


COMPUTE INDUCED VELOCITIES AT ALL VORTEX ELEMENT END POINTS, 
AND INCLUDING BLADE VORTEX POINTS. INCLUDE SELF-INDUCED 
EFFECTS OUE TO BLADE AND NEIGHBORING VORTICES (BASED ON 
APPROXIMATE CURVATURE FROM AN ARC DETERMINED FROM 3-POINT 
CIRCULAR ARC CURVE FITTING. 


INITIALIZE CONTROL CONSTANTS FOR WAKE INDUCED VELOCITY 
CALCULATIONS. 


Nl=NLPi 

N2=NLP2 

N3=NLP3 

N4=NLP4 

N5-2 

N6=l 

IF (NPER.EQ.4) N5=l 
DO 600 Z2=1,N5 


55 



IF (NAS.LE.NANRM.AN0.Z2.EQ.2) GO TO 600 

200 J J=0 
J=0 

C 

C J AND K HAVE REOEFINED FOR K>2 

C 

IF (NPER.EQ.4I GO TO 201 
IF (Z2. EQ.l) GO TO 201 
N3=NTVM 
N4=NWSTRE-1 

IF (NWSTRE.LT.NWR) N4=NWSTRE 
N6=NANRM*1 

201 DO 500 M=1 • N1 
DO 500 K=1,N2 

JAKM= (K -1 ) *NTV+ 1+NTV*N IB*( M— 1 J 

DO 500 L=i,N3 

J=J+1 

DO 500 I I=N6, N4 
IF (Z2.EQ.2) GO TO 212 
IF (NPER.EQ.4i GO TO 211 
XA=X( II , J) 

YA=Y ( 1 1 « J ) 

ZA=Z( II, J ) 

GO TO 220 

211 IF ( I I.GT.NWKLST.ANO. J.EQ.NWKCLI RETURN 
JAKH=0 

XA=WKX ( I I , J ) 

YA=WKY ( 1 1 , J ) 

ZA=WKZ ( I I , J ) 

GO TO 220 

212 XA=XM( 1 1 , J) 

YA=YM( 1 1 , J ) 

ZA=ZM(II,JI 
VXM( 1 1 , J 1=0. 

VYM( 1 1 , JJ=0. 

VZMIII, J)=0. 

GO TO 221 

C 

C POINT A IS POINT AT WHICH VELOCITIES ARE TO BE COMPUTED. 

C 

220 VX(II,J)=0. 

VY( II , J ) =0. 

VZ( II ,J )=0. 

C INITIALIZE VELOCITY COMPONENTS, INDICES, ETC. 

221 JS I G=0 
IRCW=NPER 
JPASS=J 
CALL T3AB 

IF (NAS.GT.NANRM) CALL T3ASP (VX,VY,VZ ) 

IF (Z2.EQ.li CALL ADVXYZ ( VX ( 1 1 , J ) , VY ( 1 1 , J ) , VZ ( 1 1 , J ) , TWOP I) 
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IF (Z2.EQ.2) CALL AOVX YZC VXM ( II f J } , VYM< 1 1 , J J , VZM II I , J ) * TWOP IJ 
500 CONTINUE 
600 CONTINUE 
RETURN 
END 
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SUBROUTINE ADVXYZ C VX , VY, VZ ,T WOP I» 

VX=VX/TWOPI 

VY=VY/TWOPI 

VZ=VZ/TWOPI 

W0RKI=ABS< VX ) 

W0RK2=ABS(VY) 

WORK3=A8SI VZ ) 

WQRK4=AMAX1 (WORK1 • WORK 2* WORK 3) 

IF ( W0RK4 .LE . • 1 > RETURN 
VX= (VX/W0RK4)*.! 

VY=( VY/W0RK4)*.l 
VZ= ( VZ/W0RK4) *. I 
RETURN 
END 



c 


SUBROUTINE T3AB 
INTEGER Z2 

INTEGER OUT , WKPT ,CNTR 

REAL MXYZ »MU »MUALT , MUSPK»MUC AT »MUSAT » MUDP »MUS DP, LLNTH, L NTH, LOAON, 
1LTMP, LSQ* MX, MY,MZ»MUCDP , MUSO St HUGOS 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


A{ OSt 20) 

ALFA1 (021 

ALFA2I02) 

ALFASI02) 

ALFATC02) 

AOI02I 

AR (02 ) 

AT (5) 

ATMP( 5) 

B( 005 » 16 ) 

BETA! 03y 2 ) 

BT (5) 

BTMP ( 5 ) 

C( 09) 

CCL A( 02 ) 

CHORD ( 02 ) 

DELTA I 02) 
DLNTH(0I6 ) 
DNTH(005t0I6) 
DSQI0I6) 
DTMP(016 ) 
GAMMA(05, 016) 
GAMMKI 1,016) 
LLNTH ( 020 ) 
LNTH( 05,20) 
LOADNC 020 ) 

LSQ( 020) 

LTMP ( 020 ) 

MUCDP ( 02 ) 

MUCDSI2) 

MUSDPI02) 

MUSOS ( 2 ) 

P SIR (02) 

R( 5 ) 

RBAR( 016) 
RCAP(02,5) 
RSMLL (02,20 » 
SGMA1 (016,016) 
SIGMX(04) 
SIGMY(04I 
S IGMZ ( 04) 

T( 03, 03 ) 

TCOR( 03,03) 
THTAX(02) 
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c 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


THTAYI 021 
TR(09) 
VI(Ol.Ol) 
VX(05,20) 
VY (05*20) 
VZ I 05*20) 
WKX ( 01*01) 
WKY (01*011 
WKZCOi.Oll 
X (05,201 
XROT (021 
Y ( 05,20) 
YROT ( 02 ) 

Z( 05,20) 
ZROT ( 02 ) 


COMMON /TEST33/ NIB , NRCT ,NW, NBR VI ,X , Y , Z , A, B ,DNTH ,LNTH,NAR, NPER , 
l JSIGT.NWMK, J,NWM1,NIBV,VX,VY,VZ,NIBRV 
COMMON /TEST55/ JL, JS I G ,NTV, NT VI ,M,DPSI .CHORD ,RSMLL , RCAP, GAMMA, QSZ 
COMMON /WAX El/ VOOMR ,NUWKP T, VI , WKX, WKY , WKZ ,C0SB3 , SI NB3.NASI , 

IN I BNA .NWKLST , NWKRW, NWKCL ,NLP 1, NLP2, NLP3 , NLP4,TW0PI 
COMMON /M00WK1/ GAMMAM (54 ,16 1 , RM ( 1 ) , AM(05 , 16 ) ,VXM( 54 , 16 ) , 
1VYM(54,16) ,VZM( 54,16 ) ,XM( 54, 161 ,YM( 54,16 ),ZM( 54, 16) 

COMMON / WK2B/ XA,YA,ZA,XB, YB,ZB,XC,YC,ZC 
COMMON /V LIMIT/ VLIM( 5) , VMLIM( 16 ) 

COMMON /0VT3A/ Z2 , I I 
COMMON /OVT38/ IROW , JAKM,K,L 


QSX=0. 

QSY=0. 

QSZ=0. 

DO 400 JA-1,NIBRV,NTV 

QX=0. 

QY = 0. 

QZ=0 . 

JL- JA 

JSIGT=l*((J A-1)*NTV1)/NTV 

IROW CONTROLS BRANCHING TO SPECIAL COMUTATIONS REQUIRED FOR 
SELF-INDUCED VELOCITY CALCULATIONS, AND AVOIDANCE OF 
CALCULATIONS BY STANDARD EQUATIONS. IR0W=1, POINT A IS ON 
CURRENT ROW, SELF-INDUCED VELOCITIES ARE LINEAR, IR0W=2, 
POINT A IS ON NEXT ROW, IR0W=3, POINT A IS NOT ON CURRENT 
BLADES WAKE, BUT HAS NOT BEEN ACCOUNTED FOR, IR0W=4, 

POINT A HAS BEEN ACCOUNTED FOR, NO FURTHER CHECKS NEED BE 
MADE UNTIL POINT A IS REDEFINED. 

IF ( I ROW.GT • 3 ) GO TO 213 

212 IR0W=2 

213 CONTINUE 

DO 390 1=1 , NWM1 

JS IG= JSI GT 
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SGMAX=0. 

SGMAY=0 . 

SGMAZ=0. 

NN=0 
JL= J A 

IF POINT A IS NOT ON CURRENT BLADES WAKE DO STANDARD 

CALCULATION, OTHERWIZE TEST FOR NECESSITY OF SELF-INDUCED 
VELOCITY COMPUTATIONS. 

1=1, START ON NEW BLADES WAKE 

214 IF (I. GT.il GO TO 280 
CHECK TO SEE IF POINT A I S ON CURRENT BLADES WAKE 

215 IF ( JA-JAKM) 2 18,216,219 

11=1=1 AUTOMATICALLY REQUIRES SPECIALIZED SELF-INDUCED VELOCITY 
CALCULATIONS. 

216 IF (II.LE.l) GO TO 222 

217 IR0W=2 
GO TO 270 

218 IR0W=3 
GO TO 270 

219 I R0W=4 
GO TO 270 

11=1=1, AND A ARE ON CURRENT BLADES WAKE 
COMPUTE R(JL»S FOR FUTURE USE 
222 JL= J 

COMPUTE ADDITIONAL SELF-INDUCED QSZ COMPONENT DUE TO BLADE OR 
COMPUTE SHED VORTEX COMPONENT AT END OF WAKE. 

STATEMENTS TO BE ADDED 

CALL TEST5 
DO 224 JX=1 »NTV 

224 R(JX)=ABS( RCAPI M, L )— RC AP { M, JX) I 
IF INW.LE.2) GO TO 260 

COMPUTE SELF-INDUCED VELOCITY FROM TRAILING VORTEX ONLY CON- 
TRIBUTION. 

XB=X( 2, JL) 

YB=Y(2, JLI 
Z8=Z( 2, JL I 
JSIG=JSIGT+J-JA-1 
IF ( JSIG.EQ. JSIGT-1) JSIG=JSIG*i 
XC=X<3, JLI 
YC = Y ( 3 , JLI 
ZC=Z( 3, JLI 
IP1M4-L 
SIGN=l. 

GO TO 231 

C 1 1 =NW AND A ARE ON CURRENT BLADES WAKE 

229 IP1=I-1 

IF (IP1.EQ.0I GO TO 321 
XC=X< IP1 ,JL) 
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YC=YIIP1,JL) 

ZC=Z( IP1,JL) 

SIGN=-1. 

231 MX= I YA— YB)*I ZB-ZC ) -1 YB— YC 1*1 ZA-ZB) 

MY=IZA-ZB)*I XB-XO-l ZB-ZC ) *1 XA-X8 ) 

MZ= { X A— X B)* I YB— YC ) — ( XB— XC )*IYA— YB) 

RT=PX*MX+MY*MY«-MZ*MZ 
IF (RT.EQ.O.) RT=1. 

RS=SQRT I RT ) 

MXYZ=RS 

DELSQ- I XA-XC )**2+IYA-YC) **2«-( ZA-ZC 1**2 
W0RK1=LNTHI I,JL)*LNTHl IP1,JL) 

WORKl»WORKl*WORKL 
W0RK2=LNTHl I,JL)*LNTH< I,JL) 

W0RK3=LNTH ( I PI ,JL1*LNTHI I PI, JL) 

W0RK2=W0RK2+W0RK3— DELSQ 
W0RK2=WGRK2*W0RK2 
RT=4. *WQRK1— W0RK2 
IF IRT.LE.O.) GO TO 247 
RT=DELSQ/RT 
RS=SQRTIRT) 

RSCRP=2.*LNTHI I , JL ) *LNTHI IP 1 , JL ) *RS 
RT=LNTH ( I , JL » *LNTH( I,JLI 
RT=RSCRP*R SCRP— RT 
IF IRT.LE.O.I GO TO 247 
RS*=SQRTIRT) 

WORK 1=L NTH ( I , JL )*LNTHI I,JL) 

WORK2=LNTH( I PI, JL)*LNTHI IP1, JL) 

CHOOSE DEFINITION OF FSMAL ACCORDING TO LI I , J ) **2.GE. DELSQ 
♦LI IP1, J ) **2 

IF ( W0RK1— DELSQ-WORK2. GT .0 ) GO TO 238 
236 FSMAL-I RSCRP-RS ) /LNTHI I,JL) 

GO TO 240 

238 FSMAL=I RSCRP+RS)/ LNTHI I , JL ) 

240 RT=4.*FSMAL*RSCRP/AI I, JL) 

C CHOOSE AND USE PROPER CIRCULATION VALUE 

IF (JL-JA) 243,244,242 

242 IF I JL-JA— NTV1) 246,245,243 

243 STOP 

244 FSCRP=GAMMAI I , JSIG) *( ALOGI RT )♦. 25) / I 2.*RSCRP*MXYZ ) 

GO TO 248 

245 F SCRP=- GAMMA t I,JS1G)*I ALOGI RT ) + . 25 1 / 1 2.*RSCRP*MXYZ) 

GO TO 248 

246 FSCRP= I GAMMA! I,JSIG + 1 ) -GAMMA !I,JSIG) )*I ALOGIRT)+.25)/(2.*RSCRP* 
1MXYZ ) 

GO TO 248 

247 FSCRP=0. 

248 F SC RP=F SCRP* SIGN 

249 IF III.GE.NW) GO TO 322 
QSX=MX*FSCRP 
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GSY*MY*FSCRP 
QSZ~MZ*FSCRP 
263 CONTINUE 
260 DO 262 NX=1,NTV1 
C INITIALIZE SIGHS 

SIGHXI NX )=0. 

S I GMY ( NX ) *0 • 

262 SIGMZ(NX)*0. 

I ROW= I 

C AVOID COMPUTATION EHNGZ AT JL«J 

IF IJL.EQ.JA) GO TO 265 
JSIG-JSIGT 
JL= JA 
GO TO 360 

265 RC1)=LNTH(1, JL I 
NN=L 
IP1=I+1 
GO TO 357 
270 JL= JA 
NN=0 

272 XB=X (It JA) 

YB=Y( 1 1 J A ) 

ZB=Z(1# JA) 

RT=JXB-XA)**2+f YB-YA)**2+(ZB-ZA)**2 
RS=SQRT { RT) 

R ( 1 ) = RS 
275 JL= JL+l 
NN=NN+1 
NX= JS IGT+NN— 1 
XC = XB 
YC=YB 
ZC= ZB 

XB=X( I, JL) 

YB=Y< 1, JL) 

ZB=Z(l, JL) 

RT=(XB-XA)**2+C YB-YA)**2+(ZB-ZA)**2 
RS= SQRT(RT) 

RPR=RS«-R(NN) 

DORL= I XB-XC ) **2+( YB-YC )**2 + ( ZB-ZC ) **2 
W0RK1=R (NN) 

VTEST=RS*RS+W0RK1*W0RK1-D0RL 
IF (VTEST.GT.O) GO TO 276 
W0RK2=RS— W0RK1 
W0RK2=W0RK2*W0RK2 
H0RK3=RS+W0RK1 
WORK3=WORK3*WORK3 

VTEST=C WORK3-OORL )*(DORL -W0RK2 ) / ( 4.*D0RL ) 
W0RK1=CH0RD( M) 

W ORK1=WORK1*WORK I 

IF ( VTE ST.GT .W0RK1 ) GO TO 276 
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288 


287 

286 

278 

280 

281 

282 

283 

284 


HORG *0. 

WORK5=SQRTIDORL)*WORK1 

IF ( W0RK5.NE.0. ) H0RG=1./W0RK5 

GO TO 277 

H0RG=0. 

W0RK5=R CNN) ♦RS* I RPR*RPR— DQRL ) 
IFC WORK5.NE.O.) H0RG=RPR/W0RK5 


EQRNXM XA-XC ) *( YC— YB )- ( YA— YC )* ( XC-XB ) 


EORNY=(ZA-ZC)*CXC-XB)-iXA-XCI*IZC-ZB) 
EORNZ=CYA-YC)*I ZC-ZB)-(ZA-ZC)*( YC-YB) 
W0RK1=GAMMA( 1»NX) 

WQRK2=ABS ( EQRNX*W0RK1*HQRG ) 

W0RK3=ABS< E0RNY*W0RKI*H0RG) 
WORK4=ABS(EORNZ*WORKl*HORG) 

W0RK1»A MAXI ( U0RK2 • W0RK3 « W0RK4) 

IF ( WORKl.LE.VLIM(NN) ) GO TO 2 87 
SI GMX (NN l=EORNX /WORK 1* HORG* VL IM CNN ) 
SIGMYCNN)=E0RNY/W0RK1*H0RG*VLIMCNN) 

SI GMZ (NN) = EORNZ/WORK l*HORG*VL IMC NN ) 

GO TO 286 

SI GMXC NN) =EORNX*HORG 
SIGMY CNN)=EORNY*HORG 
SI GMZCNN)=EORNZ*HORG 


RCNN+1)=RS 

IF (NN.LT.NTVL) GO TO 275 

CONTINUE COMPUTING BLADE CONTRIBUTIONS UNTIL BLADE IS COMPLETE 
THEN GO TO NEXT ROW. 


0 


JL = JA 


IF { I ROW— 2) 350,280,360 

DO SPECIAL CALCULATIONS ONLY IF POINT A IS ON CURRENT BLADES 
WAKE. 

IF(JA-JAKM) 281,282,359 

IR0W=3 

GO TO 360 

IF POINT A IS NOT ON OR JUST DOWN THE WAKE FROM B OR C, DO 
STANDARD CALCULATION. 

IF 1 1 I — 1 — 1) 350,283,360 

IF POINT A IS NOT BEHIND POINT JL, DO STANDARD CALCULATION. 
IF (JL.NE.J) GO TO 360 

COMPUTE SELF-INDUCED VELOCITIES FOR I.GT.l 
COMPUTE SELF- INDUCED QS FOR TRAILING VORTICES 
JK=0 


N=JL 

X8= X ( I, JL ) 

YB=Y ( I, JL) 

ZB=ZC I, JL) 

IF (II.GE.NW) GO TO 229 
LTMPC 1) =LNTHC I * JL) 

LTMP C 2 ) =LNTH ( 1 1 , JL ) 
IPl=I+2 
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XC=Xt IPl, JL) 

YC=Y( IP1 » JL) 

ZC=Z( IP 1 , JL) 

IPI=I+1 

ATMPI 1 )=AI I » JL ) 

285 MX= I YB- YA ) *1 ZA-ZC ) - 1 YA-YC ) * ( ZB- Z A ) 
MY=IZB-ZA)*(XA-XC)-IZA-ZC)*IXB-XA) 

MZ= IXB-XA)*! YA-YC )- ( XA-XC ) *1 YB-YA ) 

RT=MX*MX+MY*MY+MZ*MZ 
IF (RT.EQ.O.) RT=1 • 

RS=SQRTIRT) 

MXYZ=RS 

DEL SQ=I XB— XC )**2+I YB-YC ) **2+IZB-ZC ) **2 

W0RK3= <4.*I LTMPI 1I*LTMP! 2) ) **2-l LTMPI I )**2+LTMPI2)**2— DELSQ)** 

12 ) 

IF ( WGRK3.LE.0) WORK3=5.4E-70 

RT=0ELSQ/W0RK3 

RS=SQRT I RT ) 

RSCRP=2.*LTMPt l )*LTMPI2)*RS 
289 RT=RSCRP**2-LTMP( l)**2 
JK= JK+1 

IF CRT.LT.O.) RT=0. 

RS=SQRT(RT) 

C COMPUTE FSMAL DEPENDING ON LI 1 )**2 .GE .DELSQ )LI 2 ) **2. 

IF (LTMPI l)**2-DELSQ-LTMP(2)**2.GT.O) GO TO 294 
292 FSMAL=( RSCRP— RS )/ LTMPI 1) 

GO TO 296 

294 FSMAL= ( RSCRP+RS ) /LTMP I 1) 

296 RT =4 »*FSMAL* RSCRP /ATMPI l ) 

COMPUTE TRAILED IJK=1,2) OF SHED !JK=3,4> CONTRIBUTION TO 

SELF-INDUCED VELOCITY. 

GO TO (297,310,346,348), JK 

297 IF IJL-JA.LE.O) GO TO 300 

298 IF (JL-JA-NTV1) 304,302,343 
300 IF IRT.EQ.O.) GO TO 307 

FSCRP=GAMMA( I , J S IG) *( ALOGI RT )+.25) 

GO TO 308 

302 IF IRT.EQ.O.) GO TO 307 

FSCRP=- GAMMA (I,JSIG)*( ALOGI R T ) + • 25) 

GO TO 308 

304 IF IRT.EQ.O.) GO TO 307 

FSCRP=( GAMMA! I , JS IG+1 ) -GAMMA 1 1 , JS IG) ) *( ALOGIRT )+. 25) 

GO TO 308 

C COMPUTE CONTRIBUTION FROM NEXT TRAILED VORTEX ELEMENT. 

307 FSCRP=0. 

308 ATMP( 1 )=A( 1 1 , JL) 

LTMPI 3)=LTMP(1) 

LTMPI I)=LTMPI2) 

LTMPI 2)=LTMPC 3) 

GO TO 289 
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310 IF (JL.LE.JA1 GO TO 316 
314 IF (JL-JA-NTV1) 320,318,343 
316 IF (RT.EQ.O.) GO TO 322 

FSCRP=(FSCRP+GAMMAU I, JS IG)*( ALOG(RT)+. 25) )/( 2.*RSCRP*MXYZ ) 

GO TO 322 

318 IF (RT.EQ.O.) GO TO 322 

FSCRP=*( FSCRP— GAMMA! Il,JSIG)*(ALQG{RT)+.25))/{2.*RSCRP*MXYZ) 

GO TO 322 

320 IF (RT.EQ.O.) GO TO 322 

FSCRP— (FSCRP+( GAMMA (II,JSIG+1) -GAMMA (II,JSIG) ) *( ALOGI RT ) *.25 ) )/( 
12.*RSCRP*MXYZ) 

OEFINE TRAILED VORTEX SELF-INDUCED VELOCITY COMPONENT. 

CHECK SIGN OF FSCRP 

322 QSX=MX*FSCRP 
QSY=MY* FSCRP 
QSZ=MZ*FSCRP 

321 IF IJL-JA) 323,323,340 

COMPUTE NG WITH CNLY ONE VORTEX INCLUDED, JSIG 
COMPUTE FIRST CONTRIBUTION FROM SHED VORTICITY. 

323 JLM1= JL 
NN=1 
JL=JL+i 
JSIGl=JSIG+l 
JLP1=JL+1 
JK=0 

RT=1. 

324 ATMP(1)= 8(11, JSIG) 

XB=X( II, JL) 

YB=Y ( 1 1 , JL) 

Z8=Z( I I , JL ) 

XC=X( 1 1 , JLP 1 ) 

YC=Y( II ,JLP1 ) 

ZC=Z4 I I , JLP 1 ) 

LTMP ( 1 ) = DNTH( II, JSIG) 

LTMP( 2 ) =DNTH ( I I , JSIG1 ) 

325 MX= ( ( YA— YB) *< ZB— ZC ) — ( YB-YC )* ( ZA-ZB) ) *RT 
MY=( ( ZA— ZB) * (XB-XC)— ( Z8-ZC )* (X A-XB ) ) *RT 
MZ=( ( XA-XB) * ( YB— YC ) - ( XB-XC )*(YA-YB) ) *RT 
RT=MX*MX+MY*MY+MZ*MZ 

IF (RT.EQ.O.) RT=l • 

RS= SQRTC RT) 

326 MXYZ=RS 

DELSQ=(XA-XC)**2«-(YA-YC)**2+CZA-ZC)**2 

RT- ( 4. *( LTMP( 1 ) *LTMP( 2) ) **2-( LTMP( 1 )**2+LTMP( 2 ) **2- 

1DELSQ )**2 ) 

IF (RT.LE.O) GO TO 337 

RT=DELSQ/RT 

RS=SQRT ( RT ) 

RSCRP=2. *LTMP( 1 ) *LTMP( 2 )*RS 
RT=RSCRP**2-LTMP( 1 ) **2 
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IF (RT.LE.O.) GO TO 337 
RS=SQRT 4RTI 

IF ( LTMP! 1 I 4*2— DELSQ-LTMP! 2 ) **2 .GT .0 ) GO TO 334 
332 FSMAL=( RSCRP— RS) /LTMP( 1) 

GO TO 336 

334 FSMAL*< RSCRP+RSI/LTHPC 21 

336 RT=4.*FSMAL*RSCRP/ATMP( 1) 

IF (II.GE.NW) GO TO 338 
FSMAL-GAMHA ( I I » JSIG1— GAMHAI I , JSIGI 
GO TO 339 

338 FSMAL=— GAMMA! I • JSIGI 

339 IF (RT.LE.O. I GO TO 337 
FSCRP=FSMAL4( AL0G1RT !♦. 251/1 2. *RSCRP*MXYZ I 
QSX=QSX+MX*FSCRP 

QSY=QSY+MY*FSCRP 

QSZ=QSZ+MZ*FSCRP 

337 IF ( JL.EQ. JA+1) GO TO 343 
JL= JL+l 

340 IF ( JL-JA-NTVI.LT.OI GO TO 344 

341 JL= JA+NTV I— I 
JLP1= JL— 1 
RT=-1. 

JK= JK+1 
NN=NTV1 
JSIGl=JSIG-l 

GO TO (324,343,324,3431, JK 

C CHECK ON VALIDITY OF THIS TRANSFER WHEN JL=JA*NTV1 

343 IROW= 1 

QX=QX+QSX 

QY=OY+QSY 

QZ=QZ+QSZ 

IF (N.LE.JA1 GO TO 342 

C COMPUTE INDUCED VELOCITY FROM PREVIOUS TRAILING AND SHED VORTEX 

345 R(NN)=DNTH( I I,JSIG-1) 

QX=QX+( SGMAX— SIGMXl NNI )*GAMMA( I, JSIG-I I 
QY=QY+ ( SGMAY— SIGMY( NN ) )*GAMMA( I,JSIG-II 
QZ=QZ+(SGMAZ-SIGMZ(NN1 I*GAMMA( 1, JSIG-1) 

SIGMX(NNI=0. 

SIGMY(NNI=0. 

S IGMZ (NN 1=0 • 

IF (NN.GE.NTVI I GO TO 3420 
C( 11=0. 

C(2I=0. 

C(3I=0. 

3420 XB=X( 1 1 , JL) 

YB=Y ( 1 1 , JL) 

ZB=Z( 1 1 , JL) 

SGMAX=0. 

SGMAY=0 • 

SGMAZ=0. 
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NN=NN+1 

342 RS=DNTH(I I, JSIG) 

IP1*I+L 

IF (N-JA-NTV1.LT.0) GO TO 379 
IF (N-JA-NTV1.EQ.O) GO TO 380 
WRITE ( 6* 3444) 

3444 FORMAT (9H0342 HALT) 

STOP 

C COMPUTE SELF-INDUCED VELOCITY FOR POINT BETWEEN SHED VORTICES 

344 JLP1*JL+ 1 

XC=X( 1 1 , JLP1 ) 

YC=Y( II.JLP1 ) 

ZC=Z! IltJLPl) 

LTMP( 2 ) =DNTH( I I*JSIG+1) 

JLP1= JL— I 
XB=XC IltJLPlI 
YB=YC II , JLP1) 

Z8=Z (II tJLPl) 

ATMP( I ) = B( 1 1 » JS IG ) 

LTMP(1)=DNTH(II,JSIG) 

285 

346 IF (II.GE.NW) GO TO 3451 

FSMAL=GAMMA( 1 1 * JSIGI— GAMMA! I » JSIG) 

GO TO 347 

3451 FSMAL=- GAMMA! I* JSIG) 

34T FSCRP=0. 

IF (RT.LE.O.) GO TO 3471 
FSCRP=FSMAL*(AL0G(RT)+.25) 

3471 LTMP( 3)=LTMPC 1) 

LTMP( 1) =LTMP{ 2) 

LTMP( 2) =LTMP( 3) 

JSIG=JSIG+1 
ATMP(1)=B( II, JSIG) 

GO TO 289 

348 IF (II.GE.NW) GO TO 3491 
FSMAL=GAMMA (II* JSI G )— GAMMA ( I > J S IG) 

GO TO 349 

3491 FSMAL=-GAMMA(I,JSIG) 

349 FSCRP=0. 

IF (RT.LE.O.) GO TO 3492 

FSCRP=( FSCRP+FSMAL* (AL0G(RT)+.25))/(2 .*RSCRP*MXYZ ) 

3492 QSX=MX*FSCRP*-QSX 
QSY=MY*FSCRP+QSY 
QSZ=MZ*FSCRP+QSZ 
JL=JL+1 

R(NN+2)=0NTH(II, JSIG) 

COMPUTE COMPONENT OF INDUCED VELOCITY FROM PREVIOUS TRAILING 
VORTEX 
GO TO 343 
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CALAULATE USUAL INDUCED VELOCITY COMPONENTS UNLESS JL*J,II*I 
AVOIDS RECALCULATION OF TRAILED VORTEX SELF-INDUCED VELOCITY 
COMPONENT. 

350 IF IJL.NE.J) GO TO 360 

351 SIGMXI 1 ) =0. 

SIGMY( I)=0. 

SIGMZ(l)=0. 

R(l) =LNTHI I , JL) 

IP1-I+1 
NN=1 

GO TO 357 

354 XB=X(IPi,JL) 

YB=YI IP1.JL) 

ZB=Z( IP1,JL) 

RT=<XA-XB)**2+(YA-YB )**2+l ZA-ZB)**2 
DORL=DNTHI IPI, JSIG)**2 
N*4 

SIGN=— 1 • 

GO TO 365 
C RETURNS TO 370 

355 SIGMX(NN)=EHNGX 
SIGMY(NN)=EHNGY 
SIGMZ<NN)=EHNGZ 
QX=QX+SGMAX*GAMMA(I,JSIGI 
QY=QY +SGMA Y*GAMMA( I , JSIG) 

QZ -QZ+SGMAZ* GAMMA ( I * JS IG) 

XK=35. 

NN=NN+1 

IF I NN. EQ.NTV) GO TO 390 

356 JSIG=JSI G+I 
S IGMX INN )=0 . 

SIGMY (NN)— 0. 

S I GMZ (NN ) = 0. 

357 D0RL=DNTH(IP1,JSIG)**2 
XC=XI IPI, JLI 

YC=Y< IPI, JLI 
ZC=Z( IPI * JL) 

R( NN) =LNTH ( I , JL) 

JL= JL+I 
XB=X( IPI, JL) 

YB=YI IPI, JL) 

ZB=Z( I PI, JL ) 

RT= I XA-XB) **2+ C YA-YB )**2 + ( ZA-ZB)**2 

N= 2 

IR0W=4 

SIGN=1. 

GO TO 365 

359 IR0W=4 

C BEGIN STANDARD TYPE ROW INDUCED VELOCITY CALCULATION. 

360 SGMAX*0. 
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SGMAY=0. 

SGMAZ=0. 

JL= J A 

xa=x< i» jl) 

JSIG= JS IGT 
Y6=YU,JL) 

ZB =ZC I» JLI 
IP1=I+I 
XC=X( IPItJL) 

YC=Y( IPl.JL) 

ZC=Z( IPItJL) 

NN= 1 

RT= ( XA-XC 1**2+ C YA-YC I **2+( ZA-ZC ) **2 
DQRL=LNTH( I ,JL)**2 
N= I 

SIGN- l. 

365 RS=SQRT(RT) 

C IF ( CNTR.EQ.2) GO TO 372 

370 RPR=RS+R (NN ) 

TEST FOR END OF VORTEX ELEMENT (POINT A) INSIDE CURRENT VORTEX 
ELEMENT CORE. DEFINE HORG DIFFERENTLY ONLY IF A IS INSIDE 
CORE OF B-C ELEMENT. 

W0RK1=R(NN) 

VTEST=RS*RS+W0RK1*W0RK1-D0RL 

IF ( VTEST.GT .0 ) GO TO 371 

WQRK3=RS-*-WQRKl 

WORK3=WORK3*WORK3 

W0RK2=RS-W0RK1 

WQRK2*W0RK2*W0RK2 

VTEST=( W0RK3-D0RL l*(DORL -W0RK2 )/ ( A.*D0RL ) 

IF ( SIGN.EQ. 0) STOP 
WGRK1=CH0RD(M> 

W0RK1 =W0RK1*WGRKI 

IF (VTEST.GT.W0RK1) GO TO 371 

H0RG=0. 

W0RK5=SQRT( DORL I ♦WORK l 
IF ( WQRK5.NE . 0. ) HORG= 1 . /WORKS 
GO TO 377 
371 H0RG=0. 

WORK5=R(NN)*RS*(RPR*RPR-DORL» 

IF ( W0RK5 .NE . 0. ) HORG=S IGN*RPR/ W0RK5 
377 EORNZ=( XA-XC ) *( YC-YB )-( YA-YC )* ( XC-XB) 

EQRNY=( ZA— ZC)*(XC— XB)-(XA— XC )*( ZC-ZB) 

EORNX=( YA-YC )*( ZC-Z 81 -( ZA-ZC )*< YC-YB ) 

EHNGX=EORNX*HORG 
EHNGY=EORNY*HORG 
EHNGZ=EORNZ*HORG 
381 W0RK1=GAMMA( I, JSIG) 

W0RK2=ABS ( EHNGX*WORK 1 ) 

W0RK3=ABS( EHNGY*WORKI ) 
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M0RK4=ABS< EHNGZ+W0RK1 * 

WORKl-AHAXK WORK2 ,WORK3, W0RK4) 

IF (WORKl.LE.VLIMtNN* * GO TO 383 
EHNGX~EHNGX/WORKl*VLIM(NN* 
EHNGY=EHNGY/WORKl*VLI MI NN* 
EHNGZ=EHNGZ/WORKl*VLIM INN* 

383 SGMAX=SGMAX+EHNGX 
SGM AY= S GN AY + EHN GY 
SGMAZ-SGMAZ-t-EHNGZ 

385 GO TO ( 372.378,380, 355), N 

372 R(NN)=RS 
JL= JL+1 

IF ( IROW.GT .2) GO TO 376 

373 IF tll-I-il 374,375,376 

374 IF (JL.EQ.J) GO TO 354 
GO TO 376 

375 IF (JL.EQ.J* GO TO 284 

376 IP1=I+1 
XB=X ( IP1 , JL ) 

YB=Y ( IPI , JL* 

ZB=Z(IP1,JL) 

RT= ( X A-XB » **2+ ( YA-YB ) **2 ♦( ZA-Z B * **2 
DORL=DNTH( IPl,JSIG)**2 

N=2 

STGN— i * 

GO TO 365 

C RETURN TO 370 

378 C ( I * — EHNGX 
C ( 2* =EHNGY 
C (3 ) =EHNGZ 

379 XC= X ( I , JL) 

YC=Y( I , JL ) 

ZC=Z( I, JL) 

N=3 

OORL=LNTH( I , JL***2 
SIGN=I. 

NN=NN+ 1 
GO TO 370 

380 NX=NN— I 

QX=QX+( SGMA X— SIGMXI NXI **GAMMA( I , JSIGI 
QY=QY+( SGMAY-S IGMY I NX I **GAMM A{ I, JSIG) 
QZ=QZ+( SGMAZ— SIGMZ( NX) )*GAMMAi I, JSIG) 
SIGMX(NX)=C( 1) 

SIGMY (NX)=C(2 ) 

SIGMZ(NX) =C (31 

382 IF (NN.EQ.NTV* GO TO 390 
C CHECK NN INCREMENTING IN SPECIAL AREAS 

384 SGMAX=- EHNGX 
SGMAY=-EHNGY 
SGMAZ=-EHNGZ 


71 


JSIG 3 JSIG+1 
XC*XB 
VC=YB 
ZC=Z8 
GO TO 372 
390 R{NNI=RS 

C ADO CURRENT BLADES WAKE EFFECTS TO INDUCED VELOCITY AT A. 

IE (Z2.EQ.2) GO TO 394 

393 VXI II,J)=VX( II.JJ+QX 
VYI II ,J)=VY( II, JI+QY 
VZ< II,J)=VZ< II, J)+QZ 
GO TG 395 

394 VXHIII »J)=VXM(II»J)+QX 
VYM( I I, J l=VYM( 1 1 , J) +QY 
VZM(II,JJ=VZM( I I , J I +QZ 

395 DO 392 NN=1,NTV1 
SIGMX(NN)=0. 

SIGPY(NNI=0. 

392 SIGMZINN)*0. 

cm=o. 

C(2)=C. 

C(3I=0. 

400 CONTINUE 
RETURN 
END 
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SUBROUTINE TEST 5 

REAL LBIG»LSMAL »LBSLS »LBSLSQ 

DIMENSION C I 02 ) 

DIMENSION GAMMA (005*0 16) 

DIMENSION LSMALC05) 

DIMENSION KCAPI 02*05) 

DIMENSION RSMAL (02* 20 ) 

COMMON /TEST55/ JL, JSIG.NTV*NTV1 ,M, DPS I ,C, RSMAL ,RCAP, GAMMA, QSZ 
GAMSUM=0. 

C3=3 «*C ( Ml 
C34SQ=C3/4. 

C34SG=C34SQ*C34SQ 
RJDPSI»RSMAL(M,JL1*0PSI 
RJPSSQ=RJDPSI*RJDPSI 
T£RM1=+ I./RJDPS I 
DO 1 I=1,NTV1 

1 LSMAL1I ) = ABS(RCAP(M, 1*11— RCAP( M* 1 1 ) 

JX = JL 

6 IF (JX.LE.NTV) GO TO 7 
JX= JX— NTV 

GO TO 6 

7 JJ = 0 

NN= JS IG+NTV1— 1 
DO 5 1= JSIG* NN 
JJ=JJ*1 

IF (JJ.LT.JX) GO TO 2 
KX= JX 
N=J J 
GO TO 3 

2 KX=JJ 
N=JX-1 

3 LBIG=0. 

DO 4 K=KX,N 

4 LBI G=LSMAL ( K) +L8IG 
LBSLS=LBIG-LSMAL( JJ I 
LBSLSC=LBSLS*L8SLS 
C3LI42=C3/(4.*LBIG) 

C3L I42=C3L I42*C3L 142 
RJDPL I s R JDPSI/LB1G 

R JDPL I=R JDPLI *R JDPL I 

5 GAMSUM=GAMMA(I,I )*ALOG( 

2( ( 1«+SQRT( l.+R JDPLI 11/ 

3(l.+SQRT(l.+C3LI42) ))* 

4 ( ( LBSLS+SQRT (LBSLSQ+C34SQI 1/ 

5 ( LBSLS* SQRTI LBSLSQ+RJPSSQI ) ) l+GAMSUM 
TERMI=TERM1*GAMSUM 
CSZ=GSZ+TERM1 
RETURN 
END 
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SUBROUTINE T3ASP( VX,VY, VZI 
INTEGER 12 

REAL MXYZ*MU» MUALT»MUSPK»MUCAT » MUSAT , MUQP »MUSDP, LLNTH»LNTH, LGADN* 
1LTMP,LSQ,MX, MY, MZ , MUCDP , MUSDS»MUCDS 

DIMENSION VLLC16I 
DIMENSION VX( 05, 020) 

DIMENSION VY 105 *020 ) 

DIMENSION VZ ( 05 *020) 


COMMON /MODCNT/ NTVM ,N WSTRE* NWR * NANRM *NI BRVM* NI BM 
COMMON /MODWK 1/ GAMMA (54, 161, R (1) ,A I 05 * 16) , VXMI 54, 16) , 
1VYM(54»16) ,VZM(54*I6) ,X (54*16), Y (54,16)*Z (54,16) 

COMMON /MK2B/ XA , YA , ZA , XB, YB ,ZB , XC , YC ,ZC 
COMMON /VLIMIT/ VLI M ( 5 ) , VML IM( 16 ) 

COMMON /ELNTHS/ ELLI16) 

COMMON /QVT3A/ Z2,II 

COMMCN /QVT3F/ J 

COMMON /VLNTHS/ NALIM.VLL 

COMPUTE INDUCED VELOCITIES AT ALL VORTEX ELEMENT ENO POINTS, 
AND INCLUDING BLADE VORTEX POINTS- INCLUOE SELF-INDUCED 
EFFECTS DUE TO BLADE AND NEIGHBORING VORTICES (BASED ON 
APPROXIMATE CURVATURE FROM AN ARC DETERMINED FROM 3-POINT 
CIRCULAR ARC CURVE FITTING. 


INITIALIZE CONTROL CONSTANTS FOR WAKE INDUCED VELOCITY 
CALCULATIONS. 

IF (Z2.EQ.2) NSM1-1 
NN=1 

NWSTM 1=N WSTRE— 1 
DO 400 JA= l.NIBRVM 
EEL=VLL I JA) 

TWOEL=E£L+EEL 
NSW=— 1 
EL=ELL( JA) 

NANRX=NANRM 
JL = JA 
JSIG= JA 
OX=C. 

CY=0. 

QZ=0. 

WORK 1=XA-X( NANRM, JL) 

WQRK2=YA— Y(NANRM, JL ) 

W0RK3=ZA-Z( NANRM, JL> 

RSQ=WORK1*WORK1+WORK2*WORK2+WORK3*WORK3 
R ( 1 ) =SQRT ( RSQ) 
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IF (R(l).NE.O) GO TO 5 
NANRX=NANRM+1 

IF ( NANRX. GT .NWSTM1 ) GO TO 400 
W0RK1— XA— X ( NANRXf JL ) 

W0RK2=YA-Y( NANRX, JL» 

M0RK3=ZA-ZCNANRX,JLI 

R( 1 )— SORT { WORK1*WORK1+WORK2*WORK2+WQRK3+WORK3 ) 

5 I=NANRX— 1 

XB=X( NANRX* JL ) 

YB=Y ( NANRXf JL) 

ZB=Z ( NANRX t JL) 

10 1 = 1+1 

IF (NWSTRE.GT.I I.AND.I.EQ.II.ANO.JA.EQ.J) GO TO 390 
C BEGIN STANDARD TYPE ROM INDUCED VELOCITY CALCULATION. 

IP1=I+1 

XC = X( IPlf JL) 

YC = YI IP1.JLI 
ZC=Z( IP1, JLI 
NRE TN=0 

IF I( 1 1 • EQ. I .OR .II— l.EQ.II. AND. JA.EQ . J . AND.Z2.EQ.2) 

1 CALL SELF IN ( I , 1 1 , JA, QX, QY, QZ.NRETN ) 

IF ( NRE TN. EQ. 1 ) GO TO 390 
WORK 1=XA— XC 
M0RK2=Y A—YC 
W0RK3=ZA— ZC 

RT=WORK1*WORK1+WORK2*WORK2+WORK3*WORK3 

IF(RT.GT.TWOEL) GO TO 362 

IF (RSQ.LT .EEL ) GO TO 364 

IF (RT.LT.EELI GO TO 364 

NSW=0 

GO TO 389 

362 NSW= 1 

1= I+NALIM 
GO TO 389 

364 IF (NSM.LT.l) GO TO 363 
I=I-NALIM 

NSW=— 1 
GO TO 390 

363 W0RK1=XB— XC 
W0RK2=YB-YC 
W0RK3=ZB— ZC 

DORL = WORKl* W0RK1 + W0RK2 + W0RK2 +W0RK3+H0RK3 
NSW=-2 

365 RS*SQRT (RT ) 

370 RPR=RS+RCNNJ 

TEST FOR END OF VORTEX ELEMENT ( POINT A) INSIDE CURRENT VORTEX 
ELEMENT CORE. DEFINE HORG DIFFERENTLY ONLY IF A IS INSIDE 
CORE OF B-C ELEMENT. 

WGRK1=R (NN) 

VTE ST=RS*RS + H0RK1*W0RK l-OORL 
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IF (VTEST.GT.O) GO TO 371 
W0RK3=RS+W0RK1 
WORK3=WORK3*WORK3 
WGRK2=RS-WORKl 
W0RK2=W0RK2* WORK2 

VTEST=I W0RK3— OORL J*(DORL -WORK2)/< 4.*D0RL » 
WORKl=A(NANRM, JA) 

WORK l=WORKl*WORKl 

IF (VTEST.GT.WORK1) GO TO 371 

HORG=0. 

WORK5=S CRT! OORL ) *WORKl 
IF(WORK5.NE.O.) HORG=l ./WORK5 
GO TO 377 
371 HQRG=0. 

WORK5=R (NNI *RS* ( RPR*RPR-OORL) 

IF! WORKS. NE.O.) HORG=RPR/WORK5 
377 EORNZ=I XA-XC1*< YC-YB J-IYA-YC »*( XC-XB) 
EQRNY=<ZA-ZCI*(XC-XBI-(XA-XC1*{ZC-Z8> 

EORNX= ( YA— YC) *( ZC-Z E )-C ZA-ZC )*( YC-YB I 
EHNGX=EORNX*HORG 
EHNGY=EORNY*HORG 
EHNGZ=EORNZ*HORG 
381 WORKl=GAMMAI I » JSIG) 

W0RK2=ABS( EHNGX+WORK1 1 
W0RK3=ABS ( EHNGY*WQRK1 ) 

WQRK4=ABSI EHNGZ*WORK 1 ) 

WORKl = AMAXlt W0RK2 * WORK3 , W0RK4) 

IF ( WORK1.LE.VMLIMI JSIGI) GO TO 383 
EHNGX=EHNGX/WORKl*VML IM(JSIG) 
EHNGY=EHNGY/WORKl*VMLIM( JSIG) 
EHNGZ=EHNGZ/WORKl *VMLI MC JSIG) 

383 WORK 1= EL/ SORT ( OORL I 
SGMAX=EHNGX*WORKl 
SGMAY=EHNGY*WORKl 
SGKAZ=EHNGZ*WORKl 
372 R(NN)=RS 
XB= XC 
YB=YC 
13 = LC 

QX=QX+( SGMAX )*GAMKA( I , JSIG) 

GY=QY+ ( SGMAY )*GAMMA( I, JSIG) 

QZ=QZ+(SGMAZ l*GAMMA( I* JSIG) 

389 RSG=RT 

390 IF (I.LT.NANRX) GO TO 391 
IF ( I .LT.NWSTM1) GO TO 10 

391 IF IZ2.EQ.2) GO TO 393 
VX( II , J )=VX< II, J )+QX 
VY ( II, J l=V Y( 1 1 , J )+QY 
VZ< II ,J)=VZ< II, JI+QZ 
GO TC 400 
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393 VXMIII,J)=VXMIII,J)+QX 
VYMIII* J)=VYM( II,J)+QY 
VZMIIIf J)=VZH{ II,J)+OZ 
400 CONTINUE 
RETURN 
END 



SUBROUTINE SELFIN < 1 , 1 1 , JA, QX, QY.QZ.NRETN I 
COMMON /MODCNT/ NTVM . NWSTRE * NWR , NANRM ,NI 8RV M, NI BM 
COMMON /MOOWK1/ GAMMA <54,16),R 1 1 ) , AMI 05 , 16) , VXMI 54. 16) , 
IVYM(54,16),VZM<54,16) ,XM(54, 16 1 ,YMI 54. 16 ) ,ZM( 54, 16) 

NR£TN= I 
A-AMI NAKRM, JA) 

11 = 11 

IF (NWSTRE. £Q. II) Il=II-i 
IM1*I l— 1 
IP1 = U+1 
XA-XM ( 1 1 * J A ) 

YA=YM ( 1 1 * JA) 

ZA=ZM| II, JA) 

XB=XM(IM1, JA) 

Y8= YM( I Ml , JA) 

ZB=ZM( IM1, JA ) 

XC— XMI I PI , JA) 

YC = YM( I Pi » JA) 

ZC— ZM( I PI, JA ) 

CALL POINTA ( J A, I , A, J A , CSX, QSY , QSZ, I I , XA, YA, ZA, XB, YB, ZB, XC, YC ,ZC , 
1 GAMMA) 

GX=GX+QSX 

GY=QY+QSY 

GZ—QZ+QSZ 

RETURN 

END 
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SUBROUTINE POINTA ( JL , I , A, JS IG. QSX, QSY, QSZ, 1 1 . X A , Y A , Z A, XB , YB , ZB , 

1 XC * YC » ZC • GAMMA ) 

REAL LTMP(3I,MX,MY,MZ,MXYZ 
DIMENSION GAMMA! 54*16) 

COMMON /MODCNT/ NTVM ,NMSTRE , NWR , NANRM.NIBRVM.NI BM 

IX*II 

JK=0 

N= JL 

WORK1-X A— XB 
WORK2=YA— YB 
WGRK3=ZA— ZB 

LTMP! 1 ) -SQRT I WORKl*WQRKl+WORK2*WORK2«-WORK3*WORK3 ) 

WORKl=XA-XC 
W0RK2=YA-YC 
WGRK3=ZA— ZC 

LTMP! 2 )=*SQRTI W0RKi*k0RKH-W0RK2* WORK2 + WORK3*WORK3 ) 

ATMP =A 

285 MX=(YB— YAJ*( ZA— ZC I — I YA— YC )*< ZB— ZA ) 
MY=IZB-ZA)*(XA-XC)-{ZA-ZCI*<XB-XA) 

MZ=( XB-XA>*IYA-YC>-(XA-XC)*fYB-YA) 

RT=MX*MX+MY*MY+MZ*MZ 
IF (RT.EQ.O.) RT=1. 

RS=SQRT CRT) 

MX YZ—RS 

DEL S0= I XB-XC ) ** 2 + 1 YB-YC I **2 + ( ZB-ZC ) **2 

W0RK3= C4.*ILTMP< 1 l*LTMP(2 I) **2-C LTMP (1 I **2+LTMP( 2) **2-0ELSQI ** 
12) 

IF (k0RK3.LE.0l WORK3=5.4E-70 

RT=DELSQ/W0RK3 

RS=SQRT IRT ) 

RSCRP=2.*LTMP( 1 )*LTMP(2)*RS 
IF III. EQ. NWSTRE ) GO TO 306 
289 RT=RSCRP**2— LTMP! 11**2 
JK= JK+1 

IF (RT.LT.O.I R T=0. 

R S= SQRT I RT I 

C COMPUTE FSMAL DEPENDING ON L 1 1 »**2 .G£ .DELSQ )L I 2) **2. 

IF (LTMP! 1)**2-DELSQ-LTMP( 2)**2.GT. 0) GO TO 294 
292 F SMAL= l RSCRP— RS l/LTMPIl) 

GO TO 296 

294 FSMAL=( RSCRP+RS ) /LTMP I l) 

296 RT=4 • *F SMAL* RSCRP/ ATMP 

COMPUTE TRAILED (JK=1,2) CONTRIBUTION TO 

SELF-INDUCED VELOCITY. 

GO TO (300,316) ,JK 
300 IF (RT.EQ.O.) GO TO 307 

FSC RP=GAMMA( I, JS IGI * ( ALOGIRT )+ .25 1 
GO TO 308 

306 IX=II-1 

307 FSCRP=0. 
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308 LTMP(3)=LTMP<1) 

LTMPUl=LTMPI2) 

LTHPI 2I=LTMPI 3) 

GO TO 289 

316 IF (RT. EQ.O.) GO TO 322 

FSCRP=I FSCRP+GAMMAIIXt JSIG)*IALOG(RT)+.25 ) )/<2.*RSCRP*MXYZ) 
C DEFINE TRAILED VORTEX SELF-INDUCED VELOCITY COMPONENT. 

322 QSX=MX^FSCRP 
GSY=MY*FSCRP 
QSZ=MZ*FSCRP 
RETURN 
END 
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SUBROUTINE STEP# 

INTEGER OUT , WKPT » CNTR 
INTEGER T45,WW 

REAL MXYZ»MU»MUALT , MUSPK*HUC AT • MUSAT ,MUDP,MUSDP* LLNTH»LNTH,LOADN» 
l LTHP » LSQ*MX, MY • MZ »MUCDP» HUSDS* MUCDS » ID »HB»LX»KXX 


DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 

DIMENSION 


A( 05*20) 
ALFAM02) 
ALFA2I02) 
ALFASI02) 
ALFATI02) 
ALPHAOI 02 ) 
ALPHAR (02 ) 
AQ(02) 

ARI02) 

AT (5) 

ATMP{ 5) 

B( 005# 16) 
BETA(03,2 ) 

BT( 51 
BTMP( 5) 

0(09) 

COLA (02) 
CH0RD(02) 
DELTA! 02) 
01(90) 

D IR(2 ) 

OLNTH( 016) 
DNTHI005, 016) 
DSQ( 016 ) 

OTMP( 016) 
GAMMA (05 ,016) 
GAMMAG(144> 
GAMMK( 1,016) 
!NDXG( 16 ) 
10 ( 02 ) 

KXX(02) 
LLNTH(020 ) 
LNTH( 05,20) 
LOADN ( 020 ) 
LSQ(020) 

L TMP( 020) 

LX (02 ) 

MB ( 02 ) 
MUCDPI02) 
MUCDSI2) 
MUSDP( 02) 
MUSDS (2 ) 

NPSI (2) 

PSI(2) 
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DIMENSION PSIRI02) 
DIMENSION R<5) 

DIMENSION RBARI016) 
DIMENSION RCAP ( 02* 5) 
DIMENSION RSMLL102*20) 
DIMENSION RZER0I2) 
DIMENSION SGMA1 1016*016) 
DIMENSION SGMA2 ( 05 » 16 ) 
DIMENSION SIGBLU44) 
DIMENSION SIGMX (04) 
DIMENSION SI GMY ( 04) 
DIMENSION S I GMZ ( 04) 
DIMENSION T ( 03 *03 ) 
DIMENSION TCORI 03*03) 
DIMENSION THTAXI02) 
DIMENSION THTAYI02) 
DIMENSION IRC 09) 
DIMENSION VI(OI*OI) 
DIMENSION VXI05.20) 
DIMENSION V Y ( 05*20) 
DIMENSION VZI05.20) 
DIMENSION WKXI 01*01) 
DIMENSION WKYIOltOI) 
DIMENSION MKZ(01 *01 ) 
DIMENSION XI 05* 20) 
DIMENSION XR0TI02) 
DIMENSION XSIMQI 016*016) 
DIMENSION XXI02) 
DIMENSION Y ( 05*20 ) 
DIMENSION YR0TC02) 
DIMENSION Z( 05* 20) 
DIMENSION ZAP( 16 ) 


DIMENSION ZROT ( 02 ) 


COMMON /BETA 1/BE TA , MBE TR »NB ETC , P I * D ,U ,F , AS , ALPHA1 , ALPHA2 , RO 
COMMON /BETA3/GM,QMSQ, AO, AR, V,RHO,MU 

COMMON /TEST33/ NIB ,NRGT,NW ,NBRV1 ,X, Y * Z. A, B,DNTH,LNTH, NAR* NPER, 
IJSIGTtNWMK, J,NWM1»NIBV,VX, VY,VZ,NIBRV 
COMMON /TEST55/ JL * JS I G*NTV* NT VI *M* DPS I * CHORD* RSMLL* RCAP, GAMMA, Q SZ 
COMMON /MAKE 1/ VOOMR ,NUWKPT » VI * MKX* MKY , MKZ ,C0SB3 *S I NB3, NASI * 
1NIBNA»NWKLST »NMKRW, NWKCL , NLP l, NLP2, NLP3 * NLP4 * TWOP I 
COMMON /CONT/ NA.NR ,NANR * JA, JJ,NN,N, S IGN* ( I ,NGJR 
COMMON /SUB IE/ NAS 
COMMON /WK1C/ PS I * CCLA *D IR 

COMMON /WK1A/ PSI R* DPS IK *PSI K, DELTA, RREF , MU CDS » MUSDS ,THT AX* THTAY 
COMMON /WKCGNT/ NWKPD 

COMMON /STEPXA/ HKPT , MM* IOUT ,N0TTP1 ,KAT, NBC 

COMMON /MODCNT/ NTVM.NMSTRE* NMR * NANRM*NI BRV M,NI BM 

COMMON /MODWKi/ GAMMAMI 54 , 16 ) *RM( I ) , AMI 05 , 16 ) , VXM( 54 , 16 ) , 
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1VYMI 54,16) ,V2M< 54,16) ,XM(54,16) ,YM( 54,161 ,ZM<54, 161 
CCMMON /M0DWK3/ AFM (4, 10 1, BFMI4, 4 1 
COMMON /OUTOI / NNTV *NEXPWK ,NSI GRH . NMODR,NMODC 
COMMON /OUTOI 1/ NWKCLM 
COMMON /CONVGC/ GAMMAG 
COMMON /WK2C/ SIGBL 
COMMON /WK4A/ VXX 


COMPUTE NEW VORTEX ELEMENT END POINT LOCATIONS 

IF (NW.LT. NANRM) NW=NW+1 
IF (NWSTRE.LT.NWR) NWSTRE=NWSTRE*1 
NWSTMl=NWSTRE-l 
NWM 1=NW— 1 
NVM2=NM0DC 
416 CO 420 M=1 , NROT 
MUCAT=MUCDS( Ml 
MUSAT— MUSDS (Ml 
00 420 1 = 1 » NWM1 
K=NW— I 
L=NW— I+l 
J=(M-1)*NIBV 
00 418 J J=1 t NIB V 
J=J+1 

X(L.J)=X(K,J)+VX(K, J)*DPSI+MUCAT 
Y(L,J)=Y(K,J)+VY(K,J)*OPSI 

418 Z(L,J)=Z(K, J)+VZ(K, J ) *CPS I+MUS AT 
IF ( I.EQ.l.OR.M.GT.l) GO TO 420 
DO 419 N=i tNGJR 

419 GAMMA ( L »N) =GAMMA ( K » Nl 

420 CONTINUE 

TRANSPORT MODIFIED WAKE 
IF (NAS.LT . NANRM) GO TO 560 

CALL MODCOX ( NROT ,NIB ,NTV» NT VM, A, AM, AFM, NEXPWK,NNTV,NMODR .NANRM , 

1 NVM2.NAS) 

CALL MCOCOR ( NROT , NIB .NTV.NTVM, VX, VY, VZ. VXM, VYM , VZM, AFM , 

2 NWKRW, NWKCLM, NMODR. NANRM, NVM2 ) 

DO 550 M=1 » NROT 
MUCAT=MUCDSf M) 

MUSAT=MUSOS(MI 

NW S TMF= NWS TRE— NANRM 
00 550 1=1 , NWSTMF 
K=NWSTRE-I 
L=K + 1 

J= (M— 1 ) *NIBM 
00 510 J J=i,NIBM 
J = J+1 
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XM(L,J)*XM<K,J)+VXM(K, J ) *DPS H-HUCAT 
YM( L,J)=YM(K,J)+VYM(K,J)*DPSI 
510 ZM(L, J)=ZM(K,J)+VZM(K, j)*DPSI +MUSAT 
IF (I.EQ.l.OR.M.GT.ll GO TO 550 
00 520 N=1 * NI BRVM 
520 GAMMAM(L,N)=GAMMAM( K,N ) 

550 CONTINUE 

CALL GHS { NANRM* NROT > N IB ,NTVM ,BFM ,GAMMA ,GAMKAM, NTV1 « NEXPWK, 

1 NS IGRW »NMODR»NMODC ) 

560 DO 441 M=1 , NROT 

441 PSI(M)=PSI(M)+DPSI*DIR(M) 

NAS=N AS +1 
IF (NAS. GE. NANRM) 

1CALL M0DC0R(NR0T,NI8,NTV,NTVM,X,Y,Z ,XM,YM,ZM,AFM, NEXPWK, NNTV , 
1 NMOOR* NANRM* NV M2 ) 

IF ( NAS. EQ. NANRM+1 ) 

1CALL MODCOR(NROT,NI8,NTV,NTVM, X , Y, Z ,XM , YM ,ZM,AFM, NEXPWK , NNTV , 
1 NMOOR » NANRM— 1 « NVM2 ) 

WRITE (6*3) NAS,NW»NWSTRE 
3 FORMAT ( 30H0THE NUMBER OF WAKE POSITIONS *315) 

IF (NAS.GE.WW) NWKP0=4 
IF (NWKP0.EQ.4) NPER=4 
11=0 

902 FORMAT ( 2 13/( 8F 10. 7 ) ) 

OUTPUT BRANCH CONTROL 


START NEW COMPUTATION WITH NO OUTPUT IF NBC.EQ.l 
GO TO (440,442*444), NBC 

442 WRITE ( N0TTP1 ) X, Y, Z, GAMMA, VI, SIGBL, GAMMAG, PS I, I I , NAS »NW ,NWM1 , 

1 NPER ,NAS1 » NWKPO ,LNTH ,DNTH,A,B,VX,VY,VZ,VXX, 

2 VXM,VYM,VZM»XM,YM,ZM, GAMMAM ,RM, AM, NWSTRE 
REWIND N0TTP1 

IF (KAT.EQ.l) STOP 

IF (NAS.GE.WW+NIBNA ) STOP 

RETURN 

444 WRITE! IOUT, 902) NW, N IBRV , ( ( X ( I , J ) ,Y(I,J),Z( I,J> ,I = 1,NW) ,J=1, 
1NIBRV) »PSI 

WRITE! IOUT, 902) NW,NG JR, ( (GAMMA ( I , J) , 1=1 ,NW ) , J=l ,NG JR ) 

440 RETURN 
END 
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SUBROUTINE GMS 1 1 ,NROT*NIB ,NTVM, BFH , GAMMA, GAMMAM ,NTVM1 , NANR, NGJR » 
1 NMGDR , NMQDC ) 

DIMENSION BFM!4#4J 
DIMENSION GAMMA! 5* 16) 

DIMENSION GAMMAM (NMQDRtNMQOC I 
IM2=1— I 
IM1 = I 

DO 10 M=1 » NROT 
MM1=M-1 

NIBMM1=NIB*MM1 
DO 10 K=l »NIB 
KM 1-K— 1 

KNI BM=KM1+NI BMM1 
NT VMK=NTVM* KNI BM 
NTVK*NTVM1*KNI8M 
DO 10 LM=l » NTVM 
JM=LM+NTVMK 
GAMMAM! IM1 ,JM>=0. 

DO 10 L=1,NTVM1 
J=L+NTVK 

GAMMAM 1 1 Ml , JM> =— 8FM! LM »L )*GAMMA( I M2 » J ) 

1 ♦GAMMAMUM1 % JM) 

10 CONTINUE 
RETURN 
END 
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SUBROUTINE MOOCOR 
lKWMy I yNVM2 ) 
DIMENSION AFMI4y 10) 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 
DIMENSION 


(NROT »NIB«NTV» NTVM t X»Y »Z »XM*YM f ZH, AFM* NANV» NBNT » 


XI NANV »NBNT1 
XMI NWM« NVM2 1 
YI NANV.NBNT) 
YMINWM,NVM2) 
ZI NANVyNBNT ) 
ZMINWM,NVM2) 


MODIFIED WAKE ELEMENT END POINT POSITIONS OR VELOCITIES 


DO 10 N=1 » NROT 
CO 10 K = 1 » N I B 
DO 10 LM=1 # NTVM 
JM=LM+NTVM*(K-i+NIB*(M-l> I 
XMI I » JM)=0. 

YMI I y JM 1=0. 

ZM ( I, JM)=0. 

DO 10 L=l, NTV 
J=L+NTV*IK— 1+NIB*(M— II I 
N=L+NTV*(M— 1 ) 

XMI I, JM)=AFMILM,NI*XII,J)+XMII,JM) 
YMI I,JM)=AFM(LM,N)*Yl I, JI+YMf I,JM) 
ZMI I , JM)=AFM(LM,NI*Z( Iy JI+ZMII, JM) 
10 CONTINUE 
RETURN 
END 
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SUBROUTINE MOOCOX ( NROT ,NI B.NTV, NTVM.X, XH, AFM.NANVtNBNT ,NWM, I • 
1 NVM2.NASI 
DIMENSION AFMC4, 10) 

DIMENSION X( NANV, NBNT) 

DIMENSION XMlNANVf NVM2) 

MODIFIED WAKE ELEMENT END POINT POSITIONS OR VELOCITIES 

DO 20 M=1,NRGT 

DO 20 K=1»NIB 

00 20 LM^l *NTVM 

JM=LM+NTVM* ( K-l+NIB*! M-1 1 1 

IF (NAS.EQ.I .AND.LM.LT.NTVMI GO TO 15 

IF (LM.LT.NTVMI GO TO 20 

XM (It JM ) =0. 

GO TO 16 

15 READ (5,100) XM(I,JM) 

100 FORMAT (29X.E14.7I 

GO TO 20 

16 DO 10 L=1 , NT V 
J=L+NTV*IK— 1+N18*(M— 1) ) 

N=L+NTV*(M— II 

XM( I , JM)=AFM(LM«NI*X (I— 1»J)+XM( I, JM) 

10 CONTINUE 
20 CONTINUE 

WRITE (6, 1002) NAS* ( XM( I , J) ,J»1 ,8) 

1002 FORMAT (7HOHODCOX , 9 ( IX , G 1 1.41 1 
RETURN 
END 
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Machine Capability 

The Wake Geometry Program has been run on the 
University of Rochester's IBM 360/65 under MVT Release 
18, General Computer Corporation's CDC 6600 under Scope 
3.2, and NASA-Langley ' s CDC 6600 under Scope 3.2. The 
program is standard FORTRAN IV and is also WATFIV 
compatible . 


I 


Recommended CDC 6600 Overlay Statements: 
Mainline: 


OVERLAY (WKOVL ,0,0) 

PROGRAM GEOM (INPUT, OUTPUT, BDSIG, BDGAM, TAPE5=INPUT, 
TAPE6=OUTPUT, TAPE4=BDSIG, TAPE8=BDGAM) 

Subroutine WKl : 


CALL OVERLAY ( 5LWKOVL ,3,0, 6HRECALL) 
CALL OVERLAY ( 5LWKOVL , 4,0, 6HRECALL) 
CALL OVERLAY ( 5LWKOVL,5 , 0 , 6HRECALL) 
CALL OVERLAY ( 5LWKOVL ,6,0, 6HRECALL) 
CALL OVERLAY ( 5LWKOVL ,7,0, 6HRECALL) 
CALL OVERLAY ( 5LWKOVL ,8,0, 6HRECALL) 


replaces 

replaces 

replaces 

replaces 

replaces 

replaces 


CALL WK2 
CALL CONVG 
CALL AL1BD2 
CALL APXLD 
CALL WK3 
CALL STEPX 


Subroutine WK2 : 


OVERLAY (WKOVL ,3,0) 
PROGRAM WK2 


Subroutine CONVG: 


OVERLAY (WKOVL ,4,0) 
PROGRAM CONVG 


Subroutine AL1BD2 : 


OVERLAY (WKOVL ,5,0) 
PROGRAM AL1BD2 


Subroutine APXLD : 

OVERALY (WKOVL ,6,0) 
PROGRAM .APXLD 

Subroutine WK3 : 

OVERLAY (WKOVL ,7,0) 
PROGRAM WK3 

Subroutine STEPX: 

OVERLAY (WKOVL ,10,0) 
PROGRAM STEPX 
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C MAIN PROGRAM BL034 

DIMENSION VX(20,19) ,WX(20,19) 

DIMENSION CSIXI 114) ,CSIA( 1 14) ,CSIBU14) 

DIMENSION DUMBD4I2122) ,DGMBD4( 2122 ) 

DIMENSION SIGKJA (6,6) 

DIMENSION SIGKJB(6f 6) 

DIMENSION S INEBJ (20 I 
DIMENSION SINEJI18I 

DIMENSION SAVE! 144) ,WBR( 08, 18) , ELI 08, 18) 

DIMENSION HDOT( 08,18) , PHI(08,18)»THET (08,18) 

DIMENSION ELNTA120) ,ELNTB( 20 ) • EMAA ( 20) , EMAB (20) , EIXAI20 ) , EIXB120 ) 
DIMENSION EIZAI20),EIZ6( 20 ) 

DIMENSION RBL (08) ,RBLA (4 ) , RBLB (4 ) 

DIMENSION XINAC20) , XI NBI 20 ) , DPHA ( 20 ) ,DPHBI20) ,E I YAI 20 ) , E IYB ( 20) 
DIMENSION UNKWN ( 144 ) , S V3 ( 144 ) 

DIMENSION EPAI 20) ,EPB( 20 ) ,DLA4 20 ) ,DLB ( 20 ) ,ZAA (20 ) , ZAB (20 ) 

DIMENSION WDOT( 4,18) ,WPHl(4, 18 ) , WTHETI4, 18) 

DIMENSION FORCX( 08 , 18 ) ,FORCZ (08, 18) , EMOME ( 08, 18 ) , YINA ( 20 ) , Y INB( 20) 
DIMENSION WFX(4» 18) , WFZ( 4, 18 ) , WEMG( 4 , 1 8 ) ,BD1(15) ,002(15) 

DIMENSION BI (08) , BET (08) 

DIMENSION VD0T(20,19) ,X0CT(20, 19) ,PHIOT( 20,19 ),SIDT( 20,19) , 

1 CS IDT ( 06 , 19 ) 

DIMENSION OMEGA! 06 ),SIGA (06 ),AVA(20,6),AWA(20,6)*APHIA(20,6) , 

1 ASIA (20,6), ATHEA ( 20 ,6 ) , ATA( 20 , 6) , AMZA ( 20 ,6) ,A VYA ( 20 ,6 ) , 

2 AMYA(20»6) ,AVZA(20,6) ,CS IOTA( 1, 18) 

DIMENSION OMEG8(06) ,SIGB(06) , A V8 ( 20 ,6 ) , AWB ( 20,6 ) ,APHIB(20,6) , 

1 AS IB (20,6) , ATHE8( 20, 6 ),ATB( 20,6 ) ,AMZB( 20,6) ,AVYB( 20, 6) , 

2 AMYB(20,6) ,AVZB (20,6) ,CS IDT B( 1, 18) 

DIMENSION DUMSDAI 1634) ,0UMSDB( 1634) 

C 

EQUIVALENCE (B01(1),ZY ),(BD 1(2), THETA), ( BD1 ( 3 ) , XROO A ) , (BD1( 4) ,AKA ) 
1, (BOH 5 ),ACA), (BD1(6) ,BCA) , ( BD 1 ( 7 ) , I SECA ) , ( BD1 ( 8 ) , NRPTA ) , 

2 ( BD1 (9) ,CTA), (BD1( 10) ,ALPTA), ( BD1( 1 1 ) , EMTA ) , (BD 1( 12) ,AKIA) , 

3 ( BD1 ( 13 ) , OMSQA) ,(BD1(14),RA) 

C 

EQUIVALENCE ( BD2 ( 1 ) , ZQ ) , ( B02 (2 ) , THETB ) , ( BD2 ( 3 ) ,XROOB ) , 

1(802(4) , AKB) , (BD2(5) ,ACB) , (BD2(6),BCB),( BD2 (7), IS EC B), 

2 ( BD2 ( 8 ) , NRPTB ) , ( BD2 (9) ,CTB ) , (BD2( 10) , ALPTB) , ( BD2 ( 1 1 ) , EMTB) , 

3 (BD2(12),AKIB),(B02(13) , OMSQB ) , ( BD2( 14),RB) 

C 

EQUIVALENCE ( DUMBD4I 1 ) ,ELNTA ( 1 ) ) , ( DUMBD4I21 ) ,EMAA ( 1 ) ) , ( DUM8D4 (41 ) , 
lEIXA(l) ) ,(DUMBD4(61),RBLA(1) ), ( DUMBD4(70) ,X1NA( 1) ) , (DUMBD4( 90) ,DPH 
2A( 1) ) , ( DUMBD4I 1 10) , E I YA ( 1 ) ) , (DUMBD4< 130 ) ,EPA( 1 ) ) , ( DU MBD4 ( 150 ) * DL A ( 
31) ) , ( CUMBD4 (170),ZAA(1)),( DUMBD4I 190) ,YINA( 1) ) ,( 0UMBD4( 210) , OMEGA ( 
41) ) , ( 0UMB04I69) ,PSIRA) , 

4 ( DUMBD4( 230) ,SIGA( 1 ) ) , ( DUMBD4I 250) ,AVA(1 ) ) ,( DUMBD4 (430) ,AWA( 1) ) 
5, 

5( 0UMBD4 (610) ,APHIA(1 ) ) , ( DUMBD4 (790 ) , AS I A ( 1) ) , (DUMB04( 970), ATHEA ( 1 
6) ), (DUM0D4( 1150) ,ATA(1)) ,(0UMBD4( 1330 }, AMZA ( 1 ) ) , ( DUMBD4I 1510) ,AVYA 
7(11) , (DUMBD4(1690),AMYA (1) ), (0UMBD41 1870 ) , A VZA( 1 ) ) , I DUMBD4( 2050) ,B 
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801(1) ), ( DUMB04C2065 ) ,RWKA) »( 0UMBD4( 2066) »CSALA) , { DUMBD4C 2067) »NMA) 
8 * 

9 { DUMB 04 1 2068) *CSIDTA( 1 «1 ) ) 

EQUIVALENCE ( DUMBD4I 2086 )» SI6KJ A( l , 1 ) ) , ( 0UMB04C 21221 yDAMPCA) 

EQUIVALENCE ( 00MBD4 ( 1 ) , ELNTB ( 1 ) ) , ( OOMBD4 (21 ) ,EMAB ( 1 ) ) , ( D0MB04 (41 ) , 
1EIXB(1) ) » ( 00HB04 (61 ) ,RBLB(1)),( D0MBD41 70 )»XINB(1))»( 00MB04( 90) , DPH 
2B ( 1 ) ) , ( D0MBD4( 110),EIY8(l))y ( D0MBD4 ( 130) ,EPB ( 1 ) ) , ( D0MB04 ( 150 ) ,DLB( 
31 ) ) » ( CONB04 ( 170 ) » ZAB ( 1 ) ) » ( 00HB041 190)»YINB(l))»f 00MBD4( 210) , 0MEGB( 
41 ) ) * ( CO MBD4 (69) , PSI RB ) , 

4 ( 00MB04( 230)*SIGB(1))*( DO MB D4 (250 ) » AVB ( 1 ) ) »( DO MB 04 (430) » AWB( 1 ) ) 

5, 

5 (DO MB 04 (610) . APHI B ( 1 ) ) , ( 00MBD4 (790 ) , AS I B ( 1 ) I , (OOMB04( 970),ATHEB( 1 
6 ) ) » ( D0MBD4( 1150) ,ATB ( 1 ) ) , ( D0MBD4( 1330 ) * AMZBf 1 ) ) » ( D0MBD4( 1510 ) » AVYB 
7(D) , (D0MBD4(1690), AMVB(l) ) * (D0MBD4( 1870 ) , AVZB ( 1 ) ) , ( D0MBD4( 2050) .B 
802(1) ) y ( D0MBD4I 2065) «RkKB) ,( DGMBD44 2066 ) ,CS ALB) y ( D0MBD4 ( 2067 ) . NMB ) 
8, 

9(D0MBQ4 { 2068 )»CSI0TB(1«1)) 

EQUIVALENCE ( DOMB04 ( 2086 ) , SI GK JB( 1 , 1 ) ) , ( D0MBD4(21 22) yOAMPCB) 
EQUIVALENCE ( OUMSOA ( 1 ) , VDOT( 1, 1 ) ) 

C0MM0N/SAD3/CSI X 
COMMON /PUNCH/ NPCH 
COMMON /CIR/PI .TWOPI ,OIS 

COMMON /Al/ NBL,NB,NR,NH,NCV,NR2yMAXM0»NITl,NIT2yNIT3 
1 yCPOMUy IT3 

COMMON / IO/IN y NOUT «IT7 ,IT8 

COMMON / B3/ OS I , I J f KTEST y AMSNA, AMSNB , EMTA 1 , EMTB1 , ALL1 , ALL2 , ROAI R , 

1 RAlyRBl ,ERRSV 
COMMON /SHEAR1/ NASHER 
COMMON/ BL04X1/DUMBD4 

COMMON /BLD4X2/ WOOT , M PH I , WTHET , kiFX , WF Z , WE MO * NMAS , NMOOE , NAPSON, 

1 NR 1 1 

COMMON / BLD4X3/ AMU y NA ,NR L 

COMMON /BLD3X1 / ALPTI , ALPT2 yCTl ,CT2 , NRNTNA, NRNT ,UNKWN,SV3, RBL, 

1 FORCZ,EMUME,HDOT,PHI, THETyBI yBET,SAVE,WBR,EL,FORCX 
COMMON /SA02/ VOGT , XDOT y PHI DTy S IDT , CS IDT 
COMMON /GARY2/ XINPT.FINPT 
COMMON /SUSLS/ SIGLMyWBRLM 
COMMON /SAD6/ VX,WX 
COMMON/ PRNT/NPRNT 

ISW=2 

ISW=1 

DO 2384 1=1,2095 
DUMB04I I )=0. 

2384 00M8D4 ( I )=0» 

DO 2344 1=1,114 
CSIA( I )=0 . 

CSIB( I)=0. 
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2344 CS1X(I)=0. 

DO 2389 1=1,1634 
DUMSDBt I )=0. 

2389 CUMSDA ( I )=0 . 

I N=5 
N0UT=6 
IT7=8 
IT8=7 

READ* IN, 899) 

READ! IN ,900) NBL, NB , NR ,N A, NW ,NHA , NMB, KTEST , NCV ,NROT 

READ! IN, 9001 NIT1,NIT2 ,NIT3,MAXMC 

READ (IN, 900) NPCH, NPRNT 

RE AC (IN, 901) AMU , ALL1 , ALL2, AT 1ME 

READ ( IN, 901) CPOMG.ROA IR 

READ (IN, 901) XINPT , F INPT 

READ ( IN, 901 ) S I GLM, WBRLM 

NR l=NR/2 

IF (NBL.EQ.l) NR1=NR 

NR2=NRl+l 

NRNT=NR 

NAPS0N=NA+1 

NR11=NR1+1 

NRNTNA=NRNT*NA 

NACVTC=NA/2«-l 

NRO T=NBL 

NMAS=NMA 

NMODE=MAXMO 

NASHER=NAOVTO 

NC=NR 


WRITE! NOUT, 899) 

WRITE (NOUT ,9212) 

WRITE(N0UT,920) NBL , NB , NR ,NA , NW , CPCMG, RC A IR, AMU 

WRITE(N0UT»924)ALLl»ALL2 

IF (FINPT.LT..5.GR.FINPT.GT.1.0) FINPT=.5 
WRI TE (NOUT, 9216) SI GLM ,WBRLM 

9216 FORMAT! 39X, 31HLIMIT ON OFF-DIAGONAL SIGMAS = ,F7.4 ,/, 

1 35X»35HLIMIT CN WAKE-INDUCED VELOCITIES = ,F7.4,//) 

WRITE(N0UT,921L) 


PI=3. 1415926 
T WOP 1 = 2 . *P I 
DS I = T WOP I /NA 
NRP 1=NR+1 
NAP 1=N A+l 
NWP 1=NW+1 
IJ=NA*NR 
I T3= 1 
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11=1 

I2=NR1 

C 

C 

CALL I NPUT 181, 8 £T*IS EC A* NRPTA* ELNTA , El XA«EI YA, XI NA , YINA, 

1 EMAA »OPHA » EPA,DLA,ZA A* ALPT A»CT A* EMTA, GMSQA, AKI A»THETA» XROQA, 

2 AKA»RA, ACA , BCA, ATA, AMZA »AVYA, AMYA, A VZA , AVA ,AWA , APHI Ay 

3 ASIA, ATHEA.SIfaA, OMEGA, RBL,EIZA,RWKA, II, I2,NMA,PSIRA,0IRA, 

I NA ,NRl»NRNT , NMAS,NMOOE, NC ,DAMPCA,SI GKJA) 

C 

C DO 7326 1=1, NBAS 

C DO 7327 K= 1,3 

C7327 APHIAt I,K)=0. 

C AVA ( I ,4 ) =0. 

C CO 7329 K=5*6 

C7329 APHIAII ,K)=0. 

C 7326 CONTINUE 
C 

CALL OUTPUT ( THET A, XROOA, AKA, ACA, BCA, R A,CTA, ALPT A, EMTA.AK I A, 

1 OMSQ A , BI , BET , ELNTA, EMAA , E IXA»EIZA,XINA,YINA,DPHA»EPA,DLA* 

2 ZAA,OMEGA,SIGA, AVA, AW A, APHI A, ASIA, ATHEA,ATA,AMZA,AVYA,AMYA,AVZA, 

3 RBL,EIYA,RWKA, 1 1 , 12 ,NKA , PS I RA, DIRA, NR1, NMAS, NMOOE,NC ,DAMPCA , 

4 SI GKJA) 

C 

C 

IFINBL— 2) 9214,9213,9213 
9213 WRITE (NOUT, 9215) 

I l = NR2 
1 2= NR 
C 
C 

CALL INPUT(BI,BET,I SECB »NRPTB, ELNTB, E IXB »E1YB*X I NB, Y INB, 

1 EMAB,DPHB,EPB,DLB, ZAB , ALPTB ,CTB , EMTB , OMSQB ,AKI B, THETB, XROOB , 

2 AKB,RB,ACB,BCB, AT B , AM ZB ,AVYB,AHYB,AVZB,AVS,AWB, APHI B, AS IB , A THE B 

3 , SIGB.OMEGB ,R8L,EI ZB ,RWKB, I 1, 1 2 ,NMB , PSIRB, DIRB, 

1 NAfNRl ,NRNT ,NMAS,NMOOE,NC,DAMPCB,SIGKJB ) 

C 

C DO 7330 1=1, NMAS 

C 00 7331 K=l , 3 

C7331 APHI B 1 1 , K) = 0* 

C AVB(I,4)=0. 

C DO 7333 K=5,6 

C 7333 APHIB4 I,K) = 0. 

C7330 CONTINUE 
C 

CALL OUTPUT ( THETB , XROOB ,AKB* ACB,BCB,RB,CTB, ALPTB, EMTB,AK IB, 

1 OMSQB, BI, BET, ELNTB, £MAB,E IXB, El ZB, X INB, YINB,DPHB, EPB, DLB, 

2 ZAB ,QM£GB, SIGB , AVB • AW8, APHI B, AS I B, ATHEB , AT B , AMZ B, AVYB, AMYB, AVZB, 

3 RBL,EIYB,RWKB, I 1,12, NMB , PSIRB, DIRB, NR1, NMAS, NMODE,NC,OAMPCB , 

4 SIGKJB) 
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C RECALCULATE SOME INPUT VALUES 

9214 CONTINUE 

CNVFT=PI/180.0 

CALL CCNVICNVRT, THETA, AC A, BC A, ALPTA.OPHA ,NMA ,NMAS I 
WBARA=W BAR ( AMU , ALPTA,CTAI 
AMSNA=AMU*S INIALPTAJ 
CSALA=COS( ALPTA J 

amcsa=amu*csAla 

AMSNB=0. 

If INBL.NE.2) GO TO 38 

CALL CONV(CNVRT,THETB,ACB,BCB,ALPTB,DPHB,NMB,NMASI 
C 

WBARB-WBARI AMU, ALP TB,C TB) 

AMSNB=AMU*SIN( ALPTBI 
CSALB=CQS( ALPT8) 

AMCSB=AMU*CSALB 
38 IXI=NR*N6L 
C 

C COMPUTE DISTANCES L SUB I J ACCORDING TO FORMULA PAGE 1 1 1 — 3 

CSI =— CS I*DIRA+PS IRA 
C 

DO 40 J=1,NA 
CSI=CSI+DSI *01 RA+PS IRA 
4C SINEJ(J)=SIN(CSII 
2001 CONTINUE 

C RBLII) IS PETERS REAR SUB I AND RWK(M.l) IS PETERS R SUB M 

C 

DO 50 1=1, NR1 
BET(I)=BET( I J+CNVRT 
CO 50 J= 1 » N A 

50 EL ( I , J I =0S I* (RBLII) +AMCS A*S INEJ I J ) *D IRA ) 

C 

IFINBL— 1) 143,143,144 
144 CSI=-OSI*DIRB+PSIRB 
DO 55 J= 1 , NA 
CS I=C SI+DSI*DIRB 
55 SINEBJI J)=SIN(CSI 1 
DO 59 I=NR2, NR 
BETII1=BETII J*CNVRT 
CO 59 J=l»NA 

59 ELI I,JI=DSI*IRBL< I H-AMCSB*SI NE8JIJI*DIR8I 
C 

143 CONTINUE 
C 

C INITIALIZE COLUMN VECTOR OF UNKNOWNS FOR OVERALL ITERATION 

DO 100 J=1,IJ 
100 SAVE! J 1=0 • 

C 

C ENTER OVERALL ITERATIVE SCHEME 


94 



C CALL AERODYNAMIC PORTION (ELD III) 

C KTEST « 0 BYPASSES READ OF SIGMA ANO MU 
C 

MNP l=NRl 

CALL START ( WBARA«AMU» ALPTA,BCA, ACA.AKI A,THETA,DS I.CSIA, 

1 BI, BET,RBL,OMSQA, l,NNRl,AVA(NHA,l) t CSIDTA,RA,PSIRA,DIRA, 

1 HOOT, PHI, THET«NA«NRNT) 

EMTA 1=EMTA 
RA1=RA 
C 

C IF ONLY CNE ROTOR IS USED GO TO 83 

IF ( N8L—1 ) 83 » 83» 84 
84 NNR=NR 

NNR2=NR2 

CALL START ( WBARB ,AMU * ALPTB ,BC B* ACB. AKI B, THET8. OSI.CS IB, 

I BI .BETfRBL* OMSQB *NNR2 »NNR» AVB ( NMB, 1 1 »CSIDTB f RB, PSIRB.OIRB. 
1 HDOT »PHI #THET» NAf NRNT) 

C 

EMTB1=EMTB 
RB1=R8 
CT2=CTB 
ALPT 2=ALPT B 
83 CONTINUE 
2 Y=RA 
ZQ=RA 

C HR I TE (6 »20) 

20 FORMAT ( 6H0HDQT ,✓/> 

C WRITE(6,200J ( (HDOT ( It J ) » 1 »NA ) , 1= I , NR) 

200 FORMAT ( L 0( 1 X »E12 .5 ) »/l 
C WRITE(6,2I) 

21 FORMAT ( 6H0PHI ,//) 

C HR I TE (6 » 200) ( ( PHI ( I , J ) , J = I ,N A ) , 1= 1 , NR ) 

C WR ITE ( 6 1 22 ) 

22 FORMATt 6H0THET ,//) 

C HRI TE (6,200) ( (THET ( I » J ) , J = I ,NA ) , I* I , NR ) 

85 CONTINUE 

CTI=CTA 
ALPT1=ALPTA 
GO TO ( 2004 1 2000) » ISW 
2004 CALL BLD3 
GO TO 2003 
2000 CONTINUE 

ISH=1 

R EAD ( 2 IHOOT 
RE AC (2) PH I 
RE AD ( 2) THET 
READI2 IFORCZ 
READ (2 ) FORCX 
READ ( 2 ) EMOME 
READ (2 ) SAVE 



RE AC (2 )EL 
READ (2 ) RBL 
RE AD ( 2) BI 
READ(2)BET 
READ (2 1 IT3 
READ ( 21 SV3 
READ(2)ERRSV 
READ (2 )UNKWN 
2003 CONTINUE 

WRITE (6,79941 

7994 FORMAT (6H0F0RCZ//) 

WRITE (6,200) C (FORCZ(I,J) ,J=1,NA) ,1=1, NR) 

WRITE (6,7995) 

7995 FORMAT ( 6H0F0RCX// ) 

WRITE (6,200) ( (FORCX( I,J) ,J=l,NA) ,1-1, NR) 

WRITE (6,7996) 

7996 FORMAT (6H0EH0ME//) 

WRITE (6,200) ( (EMOME( I,J) ,J=1,NA) ,1*1, NR) 

C 

C ASSIGN CORRECT FORCES FOR INPUT TO 8LD4 
C 

DO 93 1=1, NR1 

DO 93 J=1,NA 

WFX( I , J )=FORCX( I , J ) 

WFZ(I,J)=FORCZ(I,J) 

WEMO( I , J ) =E MOME ( I , J ) 

93 CONTINUE 

DO 931 1=1, NR1 
931 RBLAI I )=RBL( I ) 

C 

C ENTER BLD4 WITH PARAMETERS FOR FIRST ROTOR 
DO 2345 1=1,114 

2345 CS IX ( I ) = CSIA( I ) 

C 

CALL BLD4 
C 

C ASSIGN CALCULATED VALUES FROM BL04 TO CORRECT ARRAYS 
DO 2346 1=1,114 

2346 CS I A ( I ) = CS IX ( I ) 

DO 94 1=1, NR1 
DO 94 J=1,NA 

HDOT (I»J)=WDQT( I, J) 

PH I (I »J)=WPHI( I , J ) 

THEM I , J )=WTHET ( I , J ) 

94 CONTINUE 

C IF ONLY ONE ROTOR IS USED GO TO 85 
IF 4NBL-1) 9411,9411,86 
C 

C ASSIGN CORRECT FORCES FOR INPUT TO BLD4 
86 DO 95 I=NR2 , NR 
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DO 95 J=l,NA 
L=1-NR1 

WFX (L » J J=FORCXt I * J I 
WFZIL? J >=FORCZ< I,J) 

MEMO (L« JI=EMQMEC I , J ) 

95 CONTINUE 

DO 951 I=NR2,NR 
L=I-NRl 

951 R8i-B{ LI=R8L III 

ENTER BLD4 WITH PARAMETERS FOR SECOND ROTOR 
DO 2347 1=1,114 

2347 csixm=csiem 

DO 2387 1=1,1634 
TEMPX=DUMSDA( I ) 

OUMSDAC I )=DUMSOB( I ) 

2387 OUMSDB{ I )=TEMPX 
DO 2386 1=1,2095 
TEMPX=DUMBD4 ( I ) 

0UMBD4I I J=0GMBD4( I I 

2386 D0MBD4 ( I )=TEMPX 
CALL BLD4 

ASSIGN CALCULATED VALUES FROM BLD4 TO CORRECT ARRAYS 
DO 2385 1=1,2095 

TEMPX=D0MBD4( I ) 

DGMB04 ( I >=DUMBD4< I) 

2385 DUMBD4I I)=TEMPX 
00 2388 1=1,1634 
TEMPX=DUMSDAI I ) 

DUMSDA1 I )=DUMSDB ( 1 ) 

2388 DUMSDBl I )=TEMPX 
DO 2348 1=1,114 

2348 CS1BC I >=CSIX( I I 
11=0 

DO 941 l =NR2 ,NR 
11 = 11*1 
DO 941 J=1,NA 
HDOT ( I , J) =WDOT ( II, J) 

PHI ( I , J )=WPHII 1 1 , J ) 

THETC I, J)=WTHET(Il,J) 

941 CONTINUE 
9411 CONTINUE 

IF (IT3.E0. 10001 STOP 
GO TO 85 

899 FORMAT (80H 

1 ) 

900 FORMAT I16I5I 

901 FORMAT I8F10.0I 

9212 FORMAT (3(7), 48X, 37HD YNAMIC RESPONSE OF HELICOPTER BLADES, 5I/H 


97 


920 FORMAT { 1H ,51X,18HNUMB£R OF ROTORS* .13./, 

1 52X* 18HNUMBER OF BLADES- *13, /» 

3 40X »30HNUMB£R OF RACIAL LOAD POINTS* *13./* 

4 39X* 3 IHNUMBER OF AZIMUTHAL POSITIONS* .13*/, 

5 47X* 23HNUMBER OF WAKE POINTS* *13,/, 

6 41 X» 28H ROTATIONAL SPEED CAP OMEGA* ,F9.4*8H RAD/SEC ,/, 

7 53X» 17HAIR DENSITY RHO* »F8.5*/» 

8 52X*18HADV ANCE RATIO MU* »F7.3) 

924 FORMAT! 32X* 37HC0NVERGENCE ON TWO INNER ITERATIONS *E8.I/ 

1 37X»32HC0NV£RGENCE ON OUTER ITERATION =E8.1,2C/)» 

9211 FCRMATI IH0.48X* 29HBLAD E PROPERTIES- FIRST BLADE* 31/)> 
9215 FORMAT! 1H0,48X,30HBLADE PROPERTIES- SECOND BLADE*3(/ ) ) 

END 


98 



o o r» o o 


SUBROUTINE INPUTIBI , BET. ISEC • NRPT , ELNTH, E IX, E IY, X INR, Y INR» ERAS, 

1 DPHI .EPS, DLZ»ZA,ALPHT,CT , EMT,OMSQ,AKI ,THETO,XROOT * AKL.R, AC »BC» 

2 AT, AMZ » AVY, AMY ,AVZ,AV,AW,APHI, AS I, ATHET , SIG, OMEGA, RBL.EIZ, 

3 R WK , 1 1* I 2,NM»PSIR»DIR»NA»NR1» NR NT « NMAS * NMODE » NC, DAMPC t S IGKJ ) 


INPUT READS IN BLADE PROPERTIES 


C 


C 


DIMENSION RBLI8 ) 

DIMENSION S IGK J( 6,6) 

DIMENSION BI (8) , BEK 8) ,ELNTH(20),EIX(20),EIY< 20) ,X(NR(20) ,YINR(20) 
I f EMASi 20) .DPHI (20), EPS 120) ,DLZ(20) .ZAI20I .0MEGAI6), El Z( 20 ) , S IG( 6 ) 
DIMENSION AMY ( 20.6) , AV 1 20,6 ) ,AW( 20 . 6) ,APHI(20,6) , ASI (20,6) .ATHET (2 
10,6) , AT (20,6) ,AMZ(20,6) , AVY (20, 6 ),AVZI20,6) 

COMMON /CIR/PI.TWOPI ,DIS 

COMMON /AL/ NBL , NB , NR , NW , NC V ,NR2 ,MA XMO ,NIT1,NIT2,NIT3 


l »CPCMG » IT3 

COMMON / 10/ I N, NOUT , IT7.IT8 

RE AC ( IN ,901 ) ALPHT, CT, EMT.OMSQ, AKI.RWK 

READ (IN, 901) DAMPC 

READ ( IN, 901 ) THETO, XROOT ,AKL ,R , AC ,BC , PS I R,D IR 
RE AC ( I N , 901 ) ( B I ( I ) , 1= II , 12) 

RE AC ( IN , 901 ) (BET(I) ,1=11,12) 

DO 16 1=1, NM 

READ (IN, 900) ISEC, NRPT 

BLADE PROPERTIES REPEATEO AUTOMATICALLY IF NRPT=1 
IF (NRPT ) 15,10,15 

10 RE AD( IN, 902 ) ELNTHI I ) , E I X( I ) ,E I Y( I ) , E I ZI I ) , X INR ( I ) , Y I NR( I ) , 
l EMAS ( I ) , DPH I ( 1),EPS(I),DLZ(I),ZA(I) 

GO TO 16 


15 IM 1= I— l 


E IX ( I ) = EIX ( I Ml ) 

EIY( I )=EIY( IM1) 

E IZ ( I )=EIZ( I Ml ) 

YINR( I)=YINR( IM1) 

ELNTH(I)=ELNTH(IM1) 

EMASI I )=EMAS( IM1) 

XINR(I)=XINR(IM1) 

EPS( l ) = EPSI I Mi) 

DLZ ( I ) = 0LZ( IM 1 ) 

DPHI ( I)=DPHI( IMl ) 

ZA( I )=ZA( IMl) 

16 CONTINUE 

21 READ ( I N ,901 ) (SIG(K) ,K=1,MAXMG) 

DO 22 K= 1 , MA XMO 
REA0(5,588)0MEGA(K) 

DO 22 1=1, NM 

THIS READ SHOULD BE REPLACED WITH A IT8 UNFCRMATED READ 
RE AO (5,588) AVI I,K),AW( I,K) , APH I ( I ,K ) , AS I ( I,K ) , ATHET) I ,K) , 
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1 AT<I,K) ,AHZII,K),AVY< I , K ) t AMY ( I , K ) , A VZ < I ,K ) 
AW( I *K) =— AWJ I #KI 
C AV Y< I »K )=— A VY4 I *K ) 

22 CCNTINUE 

00 24 K = 1 » MAXMO 
TWK=2.*0MEGA<K) 

TDA=DAMPC*APHI<1,K) 

CO 23 J=l» MAXMO 
SIGKJCK,J)=TDA*APHI( 1, J) 

23 CONTINUE 
TSIG=SIG(K) 

SIG(K)=TSIG+S IGK J ( K « K ) /TWK 
SIGKJ<K,KJ=-TWK*TSIG 

24 CONTINUE 

C REPLACE THIS READ WITH IT7 

READ(5,589J < RBL <U , 1= 1 1 , 12 i 
589 FCRMAT ( 10F8.0) 

588 FORMAT ( 5 ( GI2 .7,3X),/,5GI5.7) 

RETURN 

900 FORMAT <16151 

901 FORMAT (8F10.7) 

902 FORMA T ( 10E8.7) 

END 


o r» o o o 


SUBROUTINE OUTPUT (THETG, XROOT ,AKL, AC ,BC,R ,CT ,ALPHT, EMT, 
IAKI,OMSQ,BI , BET, ELNTH, EMAS ,EIX,E IZ,XINR,YINR,DPHI , 

2 EPS * OLZ ,Z A, OMEGA ,SIG,AV,AW, APHI , AS I « ATHET, AT, AMZ » AVY , AMY, AVZ * 

3 RBL » E I Y »RWK» I 1* 1 2,NM, PSIR ,DIR ,NR1 ,NMAS ,NMODE»NC ,OAMPC,S IGK J I 


PRINTS OUT BLADE PROPERTIES 


DIMENSION RBL! 8) 

DIMENSION S IGKJ(6*6 ) 

DIMENSION B1(8I » BET (8) • ELNTH 4 20 l,EIX(20),EIY(20) » X INR( 20 ) , Y INR! 20) 
1«EMAS(20)« DPHI (20)»EPS(20) ,OLZ! 20) ,ZA!20) »OMEGA( 6 ) , E I Z( 20 ) , S IG( 6 ) 
DIMENSION AMY (20,6 ) ,AV (20,6) ,AW( 20,6) ,APHI( 20,6) ,ASI(20,6) , ATHET (2 
10,6) ( AT (20. 6) ,AMZ(20,6),AVY(20,6),AVZ(20,6) 

COMMON / 10/ I N,NOUT , IT7,IT8 

COMMON /AL/ NBL,NB,NR,NW , NCV ,NR2 , MAXMO, N IT 1, N I T2, N IT 3 
1 ,CPOMG, IT3 

WRITE (NOUT ,9221 ) THETO .XROOT ,AKL , AC ,BC ,R ,NM ,PSIR ,DI R 
WRITE (NOUT, 930) CT, ALPHT , EMT, AKI ,OMSQ, RWK, DAM PC 
WRITE (NOUT, 932) (BI(I ) ,1-11,12) 

WRITE (NOUT, 933) (BET (I), 1=11, 12) 

WRI TE ( NOUT ,922) 

WRITE (NOUT, 925) (I, ELNTH! I) , E IX ( I ) , E I Y ( I ) ,E I Z< I) , X I NR( I) ,YINR(I) , 

1 EMAS ( I ) , DPHI ( I) , EPS! I ) , DLZ ( I) , Z A( I ), 1= 1, NM ) 

WRITE (NOUT, 927) 

DO 5 K=l, MAXMO 

WRITE (NOUT, 929) ( SI GKJ ( K, J ) ,J=1 , MAXMO) 

5 CONTINUE 

WRITE (NOUT ,935 ) 

DO 27 K=l, MAXMO 

WRITE (NOUT, 936) K ,OMEGA( K ) , S IG! K ) , ( I , A V! I , K) ,AW! I , K) , APHI ( I ,K) , 

1 ASI(I,K),ATHET(I,KI,I=l,NM) 

27 CONTINUE 

WRITE (NOUT ,9351 ) 

DO 2711 K=i, MAXMO 

WRITE! NOUT , 9361 ) ( I , AT ( I,K) , AMZ ( I , K) , AVY! I ,K) , AMY ( I ,K ) , 

1 AVZ ( I , K ) ,1 = 1, NM) 

2711 CONTINUE 

WRITE (NOUT, 940) (RBL! I ) , 1*11, 12 ) 

RETURN 

940 FORMAT ( 2! / ) , 56X, 17HBL ADE POINT RADI I/(6E20.5) I 
9361 FORMAT! 13X, 14, 5 E2 0.7) 

9351 F0RMAT(5(/) , 13X , 8H SECTION, 10X ,1HT, 19X.2HMZ, 17X, 3H-VY,18X,2HMY, 

1 18X.2HVZ) 

935 FORMAT ( 1H1 , 59X, 12HN0RMAL MODES/ 13 X , 7HSECT I0N,10X,1HV,19X,1HW, 
118X,3HPH( , 18X,2HSI, 16X.5HTHETA) 

925 FORMAT ( IX, I 3,3X,F7. 4, 3X, 10E 11. 4) 

922 FORMAT (3(/),57X, 16H BLADE PROPERT IES// IX, 3H I , 4X, 6HLENGTH, 6X, 

1 3HEI X, 8X, 3HE I Y , 8X, 3HE IZ,8X,2HIX,09X ,2HI Y,9X ,4HMASS , 7X, 9HDELTA PHI 


101 


2 ,2X,7HEPSIL0N,4X,8HDELTA LZ ,4X , 2HZA/9X, 4HFEET, 7X, 3{ 6HLB-FT2 , 5X) , 

3 317HLB-SEC2,4X) , 7HDEGREES,4X, 3C 4HFEET,7X ) ,/, 

4 42X,3C4HF£ET,7X),2C/> > 

930 FORMAT I 46X* 23HTHRUST COEFFICIENT CT 

1=F9.5/43X,26HSHAFT AXIS ANGLE ALPHA S =F7.2,8H DEGREES/ 

249X »2 0HT I P MACH NUMBER MT =F9 .4/64X, 5HK I =F7.3/54X, L5HQMEGA SQUAR 
3 ED =F8.4»/»50X»1 9H8LADE POINT RADIUS=,F9.5,/, 

4 49X , 20HDAMP ING COEFF ICENT= , F9 . 5 ) 

933 FORMAT ( /30X,30HBLAD£ TWIST ANGLES IN DEGREES 3F10 . 5/ < 60X, 3F 10. 5 ) I 
9221 FORMAT ( 1H ,36X, 33HNOMI NAL PITCH ANGLE, THETA ZERO * ,F8.3, 

1 8H DEGREES ,/, 39X, 30HOFFSET OF FLAP HINGE, X ROOT = ,F9.4, 

2 5H FEET ,/, 

3 40X , 29H LAG DAMPING COEFFICIENT KL = ,F9.2,15H FT LBS/RAD/SEC ,/, 

4 41X , 28HCYCL IC PITCH AMPLITUDES AC = ,F7.3,8H DEGREES ,/, 

5 6 5 X , 4HBC = ,F7.3,8H DEGREES, /, 

6 53X , 16HR0T OR RADIUS R = ,F7.3,5H FEET,/, 

2 47X.23HNUMBER OF MASS PGINTS= ,13,/ 

345X,24HR0T0R REFERENCE ANGLE = ,F7.3, 8H DEGREES/ 

4 42X , 27HR0T OR ROTATION DIRECTION = ,F3.0/> 

932 FORMAT ( /4 1 X, 19HSEM I CHORD LENGTHS 3F10 .5/ 1 60X ,3F10. 5 1 1 

936 FORMAT 1 29X, 4HM0DE , 13, 4X ,9HFREQUENC Y ,F 10. 6, 12H RADI ANS/SEC , 5X , 

2 15HDAMPING SIGMA =F10.6/ ( 13X, 14, 5E20. 7)) 

927 FORMAT i / 10X » 17HS IGK J( K , J) MATRIX/) 

929 FORMAT I2X.15F8.4) 

END 
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SUBROUTINE CONVtCNVRT » THETO. AC. BC.ALPHT «DPH1 *NM« NMAS) 
DIMENSION DPHK20I 

COMMON /AI/ NBL t NB* NR» NW » NCV «NR2«MAXMG»N1T L.NIT2.NIT3 
1 tCPOMGf I T3 
THETO=THETO*CNVRT 
AC*AC*CNVRT 
BC=BC*CNVRT 
ALPHT*ALPHT*CNVRT 
DO 30 1*1. NM 
30 OPHim = bPHI(I)*CNVRT 
RETURN 
END 


FUNCTION WBAR ( AMU »ALPHT*CT I 

WBAR RETURNS EITHER WBARA OR UBARB FOR USE IN SUBROUTINE START 
AMUCS=AMU*COS ( ALPHT J 
AMC S2=AMUCS*AMUCS 
SQT=SQRTI AMCS2*AHCS2+CT*CT) 

WBAfi=SQRT I »5*( SGT—AMCS2) I 

RETURN 

END 



SUBROUTINE START I WBAR X.AMU, ALPHTyBC • AC , AKI ,THETO,DSI ,CSI , 

1 BI ,BET,RBL,OMSQ,L, M , AV,CS IDT, R, PSIR,D IR, HPOT.PHI , THET, NA.NRNT) 
DIMENSION BI(08),BET(08) ,RBL108) 

DIMENSION HOOT (08, 18), PH 1 1 08, 18) , THE T ( 00 , I 8 ) ,C SIDT( 1, 18) 

DIMENSION CSI (6,191 

COMMON /Al/ NBL,NB,NR,NW,NCV,NR2,MAXM0,NIT1,NIT2,NIT3 
i tCPOMU* I T3 

C START SETS INITIAL VALUES FOR HDCT , PHI, THET 

97 CONTINUE 

1 CONTINUE 

FNA-NA 

HOLD=WBARX+AMU*ALPHT 

AMUSQ=AMli*AMU 

A0= ( .25*1 l.+AMUSQ)*THETO+AMU*AC/3.-.25*AMU*BC*BIIL)-HOLD/3.* 

1 BET1M ) * ( .2+AMUSQ/6 . ) )*AKI 
AI=( ( .25+. 12 5* AMU SQ ) *BC*AC*B I ( L ) /3. I* AKI 

BCIR= (2 . *AMU*THET0/3«+( .25*. 375*AMU SQ ) *AC-BC*B I ( L)/3.-.5*AMU*HOLD* 
1 • 5*AMU*8ET ( M J)*AKI 
C0=.25*AKI 
Cl=AMU*AKI/3. 

DO=OMSQ— BI( LI*AKI/3. 

D I=— . 5*AMU*B I ( L I *AK I 
D2=.25*AMUSQ*AKI 

ETA1=( (DO-1.)*(BCIR*DO-D1*AO )- ( AI*DO-Ci*AO ) *< .5*D2-C0) )/ 

1 II CO-1. ) *100*100-1. )-.5+0l*Dl)-( . 5*D2-C0) *(DO*I • 5*D2+C0I 

2 — • 5*CI*C1 ) I 

CS 1 1= I A I— C l*AO/DO-< • 5*D2*C0— 01*Cl/( 2.*D0))*ETAl)/( DO-1 • ) 

CSI 0=1 A0-.5*D1*ETA1 I /DO 
WRITE (6,200) ETA1.CSI1 
DO 100 I=L,M 
S I=-DSI*DIR*PS IR 
DO 100 J=1 , NA 
S 1= S I +DS I *0 IR 
SN=S I N ( S I ) 

CS=C0S1 SI ) 

HDOT 1 I , J )=RBL( I)*1CSI 1 *SN-ETA1*CS )*• 5*BI (L)*( (AC-CSIl)*CS 
2 -( BC+ETA1)*SN)-AMU*CS*(CSI0+CSI l*CS+ETAl*SN) 

THET ( I , J)=THETO*AC*SN+BC*CS 
PHI ( I»J)=CSIO*CSI 1*CS*ETA1*SN 

IF (I.EQ.l.OR. I.EQ.NR2) CSIDTC 1, J )=CPOMG*R*f CSI i*SN— ETAl*CSI /AV 
IF 1 I.EQ.l.OR. I.EQ.NR2) CSI ( 1, J ) =-R*PHIl I , J I /AV 
HOOT (I* J)=0. 

PHI ( I ,J)=0. 

CSI(1,J)=0. 

CSIDTd, J)=0. 

100 CONTINUE 

WRITE (6,20) 

20 FORMAT ( 6H0HD0T ,//> 

WRITE (6, 200) ( (HOOT (I • J) ,J=1,NA) ,I=L,M) 

200 FORMAT ( 10( IX, E12.5) ,/) 
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WRITE(6,21) 

21 FORMAT ( 6HOPHI ,//) 

WRITE (6,200) ( ( PHI ! I , J) , J=1 ,NA) 
WRITE (6,22) 

22 FORMAT! 6H0THET ,//) 

WR ITE1 6,200) ( ( THET ! I , J) , J=1 »NA) 
WRITE(6, 23) 

23 FORMAT (6H0CSIDT//) 

WRITE (6,9876) (CS IOT ( I,J ) , J=l, 
9876 FORMAT (LH0,6E15.7) 

RETURN 

END 


,I=L,M) 

,I=L,M) 

NA) 
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SUBROUTINE HARMN <NM,NA,DSI,F,MTYP,NMAS,NROW,NCOL) 
DIMENSION A!20,10),B(20,10 ),F(NROW»NCOLI 

WR IT E (6*900 ) 

NCNT=0 
NAP1=NA+1 
NAG2=NA/2 
N5=NAG2/5 
N5T10=!NA02*10)/5 
IFIN5+I0— N5T10I 1000. 10 10 , 1000 
1000 N5=N5+l 
1010 CONTINUE 
ANA=NA 
T=2./ANA 

GO TO ( l,2,3,4,5,6> ,MTYP 

1 WRITE (6 *901 ) 

GO TO 6 

2 WRITE ( 6 » 902 ) 

GO TO 6 

3 WRI TE ( 6. 9031 
GO TO 6 

4 WRI TE ! 6 .904 ) 

GO TO 6 

5 WR I TE (6 .905 ) 

6 CONTINUE 

DO 240 L=1,NM 
DO 200 N=l,NA02 
A(L.N) = 0 
B ( L * N ) = 0 
M=N— 1 

DO 100 K=1,NA 
AKDS 1= ( K— I ) *M*DS I 
C=COS ( AKDSI ) 

S = SIN! AKDSI » 

A(L,N)=A(L,N)+C*FI L,K) 

BIL»N)=B(L»N) + S*F { L » K I 
100 CONTINUE 

8 ( L . N ) * T*BIL,N) 

200 A(L,N) = T*A ( L* N) 

240 A! L . 1 ) = «5*A( L . 1 ) 

270 CONTINUE 
N G 2- 0 
NGPP=0 

WRI TE ( 6 » 906 ) IN,N=1,5| 

WRITE! 6.908 1 
210 NGRP=NGRP*l 
NG1=NG2+1 
NG2=5*NGRP+1 
IF ( NGRP— N5) 220.215,300 
215 NG2=NA02 


220 IF ( NGRP— 1 ) 250,250,260 
250 DO 255 1=1, NM 

255 kRITE (6 ,910 ) I, All, 1), (A(I,N),B(I,N), N=2 , NG2 I 
GO TO 210 
260 NX 1= NG 1-1 

NX2=N62-1 

IF (NG1.EQ.NG2) GO TO 300 
WRITE(6,907) ( N,N=NX 1 ,NX2 ) 
kRI TE (6,909) 

DO 265 1=1, NM 

265 kR I TE (6,911 ) I , ( A( I , N) , B ( I , N ) , N=NG1 ,NG2 ) 

GO TO 210 
300 CONTINUE 

IF (NCNT.GT.O) RETURN 
00 86 1=1, NM 
DO 86 N=1,NA02 
U=A ( I , N ) 

V=0 ( I ,N) 

80 G=SQRT(U*U*V*V) 

ARG=0. 

IF ( G . EQ . 0. ) GO TO 85 
ARG=ATAN2 ( V »U ) 

85 6 ( I ,N ) =ARG 
€6 All ,N) = G 

WRITE (6,920) 

920 FORMAT (IH , /// ,51X .29HHARM0NI C ANALYSIS, POLAR FORM) 
NCNT=NCNT + 1 

IF (NCNT.LT.2) GO TO 270 
900 FORMAT ( 1H , 3(/J ,57X,17HHARMCNIC ANALYSIS) 

901 FORMAT ( 31/) ,60X, 1 1HLEFT TORQUE) 

902 F0RMAT(3(/),59X,13HLEFT Z MOMENT) 

903 F0RMAT(3(/)»59X,13HLEFT Y SHEAR ) 

904 FORMAT (31/) » 59X » 13HLEFT Y MOMENT) 

905 F0RMAT(3(/) ,59X,13HLEFT Z SHEAR ) 

906 FORMAT (2</) ,8X,5HN = 0,3X, 5( 9X, 3HN =I2,8X)I 

907 FO RMAT (21/) ,8X»5(17X»3HN =12)1 

908 FORMAT ( 5H I , 5X ,1 HA , 5 ( 11 X, 1H A , 10X , 1 HB ) ) 

909 FORMAT ( 5H I , 6X, 5 ( 1 1 X, 1HA , 10X , IHB I ) 

910 F0RMAT(I3,E11.4,5(1X,2E11.4) ) 

911 FORMAT( I3,11X,5{ 1X,2E11.4) ) 

RETURN 

END 


108 



SUBROUTINE BL03 


C 

c 

c 

C THIRD PROGRAM IN BLADE LOADS SEQUENCE 
C SOLUTION OF EQUATIONS BY ITERATION 

C 

DIMENSION USAVEU44) ,CO 108, 18),C01 (08*18), SIGMA! 144} 

DIMENSION UNKWNU44) ,S V3 U44) ,RBU08 > ,F0RCX(08,1 8) ,FORCZI 08, 18) , 

1 EMOME (08*18), HOOT! 08*18)* PH 1(08*18) » THET (08,18), BK08), 

2 BET( 08 ) » SAVE! 144} , WBR (08 , 18) . ELC 08, 18 1 
C 

COMMON /C IR/PI , TWOPI «D IS 
COMMON /I0/IN,N0UT,IT7 f IT8 

COMMON /Al/ NBL,NB,NR,NW,NCV,NR2,MAXM0,NIT1,NIT2,NIT3 
1 tCPOMGf IT3 

COMMON /B3/ DSI , I J , KTEST ,AMSNA • AMSNB v EMTA1* EMTB1 , ALL1 , ALL2 , ROAIR, 
1 RA1, RBI , ERRSV 

COMMON /BLAD3/ CMPD » AMNA2 » AMN82 » IT2 * QN2DS » IT1»CMPAR 
COMMON /BLD4X3/ AMU,NA,NR1 

COMMON /BLD3X1/ ALPTA, ALPTB, CTA, CTB , NRNTNA ,NRNT f UNKHN,SV3» RBL, 

1 FORCZ» EMOME* HOOT ,PHItTHET*BIfBET »SA VE »WBR» EL»FGRCX 
C 

NANR=NA*NR 
NRNA=NR*NA 
971 CONTINUE 

3396 IFIIT3-1 >3398,3398,3399 

3398 DO 3397 I=1,NANR 

3397 SV3CII=0.0 

3399 CONTINUE 

370 IF! KTEST) 373*373,372 
373 DO 3333 M=1 »NRNA 
SIGMA(M)=0. 

3333 CONTINUE 
372 CONTINUE 

IF (KTEST) 1,1,2 
2 REWIND IT7 

REWIND IT8 
1 CONTINUE 
C 

C DEFINE NECESSARY CONSTANTS 

20 CN0TP=1. /TWOPI 
FNA=NA 
PI02=PI*.5 
0N2DS=0. 5/DSI 
AMNA2=AMSNA*AMSNA*DS I*DS I 
AMNB2=AMSNB*AMSNB*DSI*0SI 
IT 1=0 
IT2=1 

IF{IT3-1)40 ,40,50 
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40 IF(IT2-l)4i,41,50 

41 IF ( KTEST) 42* 42 ,43 

43 READ IIT8> (UNKWNIK ) ,K=1 ,NANR) 

DO 57 K=1,NA 
M=( K- 1 ) *NR 
DO 57 J=1,NR 
I=M+J 

57 UNKWN { I )= UNKWN! 

60 70 50 

42 DO 44 1=1, IJ 
44 UNKWN! n=.01 

50 CALL GAMAS ( AMU, ALPT A, ALPTB ,CT A, CTB, NRNTNA, NRNT, NA,NR 1, 

1 USAVE , UNKWN »CG»C01 , SIGMA, SV3, RBL »FORCX , FORCZ, EMC ME, HOOT , PHI , 

2 THET,BI , BET, SAVE, WBR, EL) 

CMPD=0 • 0 

CMPAR=0. 0 

C CHECK FOR CONVERGENCE ON OVERALL ITERATION 

DO 302 I NDEX=1 , I J 

CMP AR=C MPAR+! UNKWN ( I ND EX I-SV3 ( INDEX) ) **2 
CMPC=CMPD+(UNKWN! INDEX ) )**2 

302 SV3! I NDEX) =UNKWN( INDEX) 

EPLCN=SQRT ! CMPAR/CMPD) 

IF (IT3-3) 3028,3026,3021 

C CUTOFF ON OVERALL ITERATION FOR SEVERE DIVERGENCE 

3021 I F C EPLON— ERR SV 13026,3026, 303 
3026 ERRSV=EPL0N 
3028 WR ITE (NOUT, 940 ) I T3 , EPLCN 
IF { EPL0N-ALL2 1303 ,303, 310 

303 IT3=1COO 

WR ITE (NOUT, 940 ) IT3,EPL0N 
310 CONTINUE 
IT3=IT3+1 

IF ( IT3.GT.NIT3) IT3=1000 

IF (IT3.EQ.1000) CALL HARMN (NR, NA, OS I • WBR,6,0 ,8 , 18 J 
CALL BLD3B ( AMU, ALPTA, ALPTB ,CTA, CTB, NRNTNA, NRNT, NA,NR1, 

1 USAVE, UNKWN, CO, C01, SI GHA, SV3, RBL „F0 PCX, FORCZ, EMOME, HOOT, PHI, 

2 THET,BI, BET, SAVE, WBR, EL, INDEX} 

RETURN 

940 FORMAT (2(/) ,30X,5HIT3 =, 15, 30X, 7HERR0R =,E15.7/J 
END 
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noon 


SUBROUTINE GAMAS (AMU,ALPTA, ALPTB,CTA,CTB,NRNTNA,NRNT,NA,NR1, 

1 US A VE, UNKWN Y C0*C01 * SI GMA,SV3,RBL, FORCX»FORCZ «EMOME«HOOT , PHI , 

2 THET,BI ,BET»SAVE,WBR, EL i 
C 

DIMENSION USAVEI 144) ,C0(08, 18) « CO 1(08*181 * SIGMA! 144) 

DIMENSION UNKWN ( 144 ) ,SV3(144I,RBL( 08 ) »FORCX( 06*18) »FORCZ( 08* 18) * 
1EM0ME! 08*18), HDOT (08*18) *PHI(08,18I ,THET (08 ,181 * 81 (08 1 , 

2BETC08I * SAVE! 144 ), WBR (08*18), EL( 08*18) 

C 

COMMON /CIR/PI »TWOPI *DIS 
COMMON /I0/IN,N0UT,IT7,IT8 

COMMON /Al / NBL »NB» NR* NW »NCV »NR2 » MAXMO, NIT 1* N IT2, N IT3 
1 »CPOMG, IT3 

COMMON /B3 / DSI * IJ»KTEST * AMSNA, AMSNB*EMTA1»EMTB1,ALL1»ALL2,R0AIR» 
1 RA1«RB l,ERRSV 

COMMON /BLAD3/ CMPD, AMNA2, AHNB2, IT2 »0N2DS ,IT1 ,CHPAR 

COMMON /SGSLS/ SIGLM , W8RLM 

COMMON/PRNT/NPRNT 


DO LOOPS TO COMPUTE CERTAIN COEFFICIENTS AS FUNCTIONS OF RADIAL 
POSITION AND AZIMUTH WHICH APPEAR IN EXPRESSIONS FOR UNKNOWNS, 
PAGE III-5. 

NR1=NR2-1 
NANR=NA*NR • 

NANB-NA/N8 
50 DO 100 JJ=i,NANB 
00 100 MR0T=1,NBL 
DO 100 K=1 * NB 
J=( JJ+(K-1)*NANBI 
JM1=J-1 
JP1=J+1 

IF(JMl) 55,55,60 
55 JM1=NA 
GO TO 65 

60 IF ( JP 1-NA) 65,65,62 
62 JP1=1 

65 DO 100 IM=1,NR1 
I=1M+1 MROT— 1 )*NR1 
IF (I-NRU3137, 3137, 3138 

3137 AMUSN=AMSNA 
AMSN2=AMNA2 
EHT=EMTA1 

UUBAR=WBAR ( AMU , ALPT A ,CTA ) 

GO TO 3139 

3138 AMUSN=AMSNB 
AMSN2=AMNB2 
EMT=EMTB1 

UUBAR=WBAR( AMU , ALPTB, CTB J 

3139 CONTINUE 

IF ( KTEST ) 63, 63, 64 
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64 READ ( IT7 ) MSET ,( SIGMA (Ml ♦ M= 1, NANR) 

SABS-ABS(SIGMA( MSET ) ) 

SABS- SAB S*SIGLM 
00 20 M= It NANR 
IF(N.EQ.MSET) GO TO 20 
SABSK-ABS( SIGMA(M) ) 

IF (SABSM.LT .SABS) GO TO 20 
SIGMA (MI=SIGHA(M)*SIGLN/SABSM 
20 CONTINUE 

63 CONTINUE 

IND£X=( J-U*NR+I 
73 INJM1=(JM1-1»*NR+I 
WBR ( 1 1 JJ =0. 

C RECOMPUTE OOWNWASH VALUES ACCORDING TO PAGE III-4, IF IT2=i. 

DO 75 M=1,NR 
00 75 N=l,NA 
IND=(N-li*NR+M 

75 HBRI I,J)=WBRII,JJ-BI(M)*SIGMAI INO)*UNKHN( IND) 

WABS=ABS(WBR(I,JI) 

IF ( WABS.LT. WBRLM) GO TO 76 
*BR ( I ♦ J I =WBR (I « J ) *W BRL M/ WABS 
76 CONTINUE 

C COMPUTE U ACCORDING TO PAGE II 1-3 AND V ACCORDING TO PAGE 1 1 1-4 

80 U-ELI I« JI/DSI 

V=HDOT( ItJ)-AMUSN-HBR(ItJ) 

SQTUV=SQRT ( U*U+V*VI 
ARG-O. 

IF { SQTUV.EQ. 0. ) GO TO 85 
ARG=ATAN2( VtUI 

85 APHI J=BET( I J +THET ( I » J ) +ARG 
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C SUBROUTINE SERIES COMPUTES VALUES OF CLIFT*LIFT COEFFICIENT, 

C ASLOP=LI FT CURVE SLOPE, CMOME=MGMENT COEFFICIENT, CORAG=DRAG 

C COEFFICIENT 

CALL SERIES { I , J , 1 , EMT ,U, V, APHI J, CLIFT, ASLOP, CMOME, CDRAG * 

UAPVC=U*ASLOP+V*CLIFT 

CO< I,JI=UAPVC/SQTUV 

COU I,J)=CLIFT*SQTUV+CO(l,J)*WBR<I,J) 

C 

C INITIAL GAMMA VALUES ACCORDING TO FORMULA PAGE III-9 

C PETERS GAMMAS ARE UNKWNI INDEX) IN THIS PROGRAM 

C 

C SKIP FOLLOWING WHEN IT3=I AND USE INPUT FROM BLADE GEO 
95 IF(IT3-1> 100,100,951 

951 IFUT2-1) 97,97,100 

97 INDEX=( J— 1 )*NR+I 

UNKWNI INDEX) =SQTUV*CLIFT+PI*BI II J*( CTHET ( I * JP1I-THET 1 1, JMl ) ) 
1 *0N2DS+PHIC I, J) ) 

100 CONTINUE 

IFINPRNT.LT.il GO TO 1000 

WRITEI6, 9999)1 CWBRC I , J I , J=1 ,NA I , 1=1 ,NR) 

9999 F0RMAT(/1H0,3HWBR/I7G14.6I) 

1000 CONTINUE 

IF I KTEST I 110,110,102 
102 REWIND IT7 

IF IIT3.EQ.1.AND.IT2.EQ.1.AND.KTEST.GT.0) RETURN 
C 

C ENTER ITERATION SCHEME ON GAMMAS 
C 

110 IT1=IT1+1 

1FUT1-NIT1) 115,115,360 
115 CSI=-DS I 
C 

C UPDATE VALUES OF GAMMAS ACCORDING TO EQ 3 PAGE 1 11-5 IN THE 

C FORM SHCWN ON PAGE III-5A 

DO 300 J J-l ,NANB 
DO 300 MRQT= 1,NBL 
DO 300 K=1 , NB 
J=( JJ+IK-ll+NANB) 

DO 300 IM=1,NR1 
1= I M+ (MRQT— 1 )*NR1 
C 

INDEX=( J— 1 )*NR+I 
IF(KTEST) 106,106,107 
107 CONTINUE 

READ ( IT7) MSET,CSIGMA(LM),LM=1,NANR» 

SABS=ABS( SIGMA! MS ETI I 
SABS=SABS*S I GLM 
DO 21 M=1,NANR 
IF ( M.EQ. MSET) GO TO 21 
SABSM=A8SISIGMA(M) 1 
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IFCSABSM.LT. SABS) GO TO 21 
SIGMA ( M)=S I GMAC M)*S I GLM/SABSM 
21 CONTINUE 
106 CONTINUE 

DENGM=l.-BI(l }*CCGC l,J)*SIGMAC INDEX) ) 

IF (ABSC DENOM l-l.E-06) 120,120,125 
120 WRITE (NOUT ,979) 

GO TO 300 

125 USAVEC INDEX )=UNKWN< I NO EX) 

SUM1=0. 

DO 150 LM=1,NR 

CO 146 LN=1,NA 

IND=( LN— 1)*NR+LM 

IF ( I NO— I NDE X) 145,146,145 

145 SUM1=-BI(LM)*SIGMA( IN0)*UNKWN( IN0I+SUM1 

146 CONTINUE 
150 CONTINUE 

JM1= J-l 

IFCJM1) 155 ,155,160 
155 JM1=NA 

160 INJK1=UM1-1)*NR+I 
165 JP1=J + 1 

IFCJP1-NA) 200,200,170 
170 JP1=1 

200 UNKWNC INDEX )= C01C I , J)+PI*BI II ) *1 1 THETC I , JP1 )-THETC I , JM1 ) )*0N2DS 
1 +PHIC I, J) )— C0( I , J )*SUM1 
UNKWNC INDEX) =UNKWNC INOEXI/DENOM 
300 CONTINUE 

C END UPDATE OF GAMMAS 

IFCKTEST) 304,304,113 
113 REWIND IT7 

C CHECK FCR CONVERGENCE ON INNERMOST ITERATION 
304 CMPAR=0. 

CMPD-0 • 

DO 350 INDEX=1,IJ 
CMPD=CMPD+C UNKWNC INDEX) ) **2 
350 CM PAR=CM PAR-#- (UNKWNC INDEX I-USAVEC INDEX ) )**2 
EPLQN=S0RT C CMPAR/CMPD) 

WRITE CNOUT ,942) IT1,EPL0N 
IFCEPL0N-ALL1) 360,360,110 


CHECK FOR CONVERGENCE ON SECOND LEVEL ITERATION 
360 IT1=C 

CMPAR=0. 

DO 379 INDEX=1 , I J 
379 CMPAR=CMPARM UNKWNC I NDEX )~SA VE ( I NDEX ) 1**2 

EPLON=SQRT CCMPAR/CMPD) 

WRI TE CNOUT ,941 ) I T2 , EPLON 
IFC EPLON— ALL1) 500,500,380 
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380 IFUT2-NIT2J 390,390*500 
390 IT2=IT2+1 

DO 400 INOEX=l,IJ 
400 SAVEC INDEXI=UNKWN(I NDEXI 
GO TO 50 
500 CONTINUE 
RETURN 

979 .FORMAT 4//52X, 16HDIVIS ION BY ZERO//} 

941 F0RMATC2(/i »30X,5HIT2 *,I5,30X,7HERR0R *,E15,7/| 

942 FORMAT! 2( / I ,30X,5HIT1 *,I 5,30X,7HERR0R *,E15.7/) 
END 


SUBROUTINE BL038 ( AMU, ALPTA, ALPT8,CTA,CTB,NRNTNA,NRNT,NA,NR1 , 

1 USAVE » UNKWN»C0»C01 »SIGMA,SV3» R8L, FORCX, FORCZ* EMOME, HOOT *PHI * 

2 THET » BI , BET, SAVE,WBR, EL, INDEX) 

C 

C 

DIMENSION USAVE(144) ,CQ(08,18) ,C01(08»18 ) ,SIGMA(144) 

DIMENSION UNKWN( 144 ) » S V3( 1441 »RBLC 08 ) tFORCXf 08y 18) ,F0RCZ(08, 181 , 
1EM0ME (08*18) ,HD0T(08*18) *PHI (08*18) *tHET ( 08 *18)* BI ( 08 ) * 

2BET ( 08 ) * SAVE ( 144) *WBR( C8, 18) *EL(08,18) 

C 

COMMON /C IR/PI . TWOP I *0 IS 
COMMON /IO/INtNOUT ,IT7*IT8 

COMMON /Al/ NBL,NB,NR,NW,NCV,NR2,MAXM0,NIT1,NIT2,NIT3 
1 «CPOMS» IT3 

COMMON /B3/ OSI »IJ,KTEST,AMSNA* AMSNB.EMTAl, EMTB1, ALLl, ALL2, ROAIR, 
1 RA1*RB1 tERRSV 

COMMON /BLAD3/ CMPD .AMNA2* AMNB2, IT2,0N2DS ,IT1, CMPAR 
C 

C COMPUTATION FOR BLADE LOADS 

C 

WRITE (6,9872) (UNKWNC INDEX) ,INDEX=1,IJ) 

9872 FORMAT ( 7H GAMMAS// ( 10G12.4 ) ) 

IF( IT3- 1000)3121*896, 3121 
3121 DO 825 1=1, NR 

IF (I-NRD3127, 3127, 3128 

3127 AMUSN=AMSNA 
AMSK2=AMNA2 
EMT=EHTA1 
GO TO 3129 

3128 AMUSN=ANSNB 
AMSN2=AMNB2 
EMT=EMTB1 

3129 CONTINUE 
B02DS=0N2DS*8I(I) 

TPIB2=6.*PI*802DS*BI(I) 

DO 700 JC=1,NA 

J=JC 

JM1=JC-1 

IF(JMl) 5351,5351,545 
5351 JM1=NA 
545 INDEX=( JC— 1 ) *NR+I 
INJM1=( JM1-1)*NR+I 
600 U=EL( I, JO/DSI 

V=HDQT ( I, JC)— AMUSN-WBR (I »JC) 

SQTUV=SQRT(U*U+V*V) 

ARG=0 « 

IF (SQTUV.EQ.O.) GO TO 605 
ARG=ATAN2(V,U1 

605 APHI J=BET (I) +THET ( I , JC 1-fcARG 
C RECOMPUTE COEFFICIENTS FROM SERIES SUBROUTINE 
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CALL SERIES U * J,2 , EMT ,U, V , APHI J.CLI FT, ASLOP, CMOME, CORAG I 
C COMPUTE CAP I FUNCTIONS GIVEN ON PAGE III-B 
CO<I,JCJ= 2.*B02DS*CM0ME*SQTUV 
C COMPUTE BLADE LOADS ACCORDING TO PAGE III-7 

EMOME ( I , JC )=2.*CM0ME*SQTUV*SQTUV 
FORCZ (I » JC)=IU*CLIFT +V*CDRAG )*SQTUV 
FORCXII , JCI V*CLIFT+U*CORAGI *$QTUV 
700 CONTINUE 

C CORRECT BLADE LOADS FOR J+l AND J-l TERMS 

DO 800 J-ltNA 
JM1=J— 1 
JP1=J+1 

IF(JMl) 702,702,705 
702 JM1=NA 

GO TO 710 

705 IF(J-NA) 710,707,707 
707 JP1=1 

710 INDEX=( J—1)*NR+ I 
INJM1= ( JM1— 1 )*NR*I 
INJP1=I JP1— 1 )*NR+I 

FORCZ ( I , J >=FCRCZU , J I + B02DS* CUNKWNI INJP1 l-UNKHNI INJM1 ) ) 

FORCZ (I , J)=FORCZ( I , J 1+CO I I , JP1 I— COI I, JM1) 

EMOME (I , J)=EMOME( I, JI-.25*B02DS*(UNKWN< INJP1 )-UNKWN( INJM11 ) 
EMOME I I , J)=EMOME( I, J i-TP IB2*.25*0N2DS*C THETI I , JP1)-2.*THET( I , J) 
1 +THETI I , JM1 J )— TPIB2/16.*! PHICI,JP1 1— PH 1 1 1 , JM1 } ) 

800 CONTINUE 
825 CONTINUE 

CALL BLD3C ( AMU.ALPTA, ALPTB,CT A, CTB, NRNTNA, NRNT,NA,NR1« 

1 USAVE.UNKWN, CO, COI, SI GMA,SV3,RBL,F0RCX, FORCZ, EMOME, HDOT, PHI, 

2 THET.BI, BET, SAVE, WBR, EL, INDEX) 

RETURN 

896 CALL BLD3C ( AMU, ALPTA.ALPTB ,CTA , CTB , NRNTNA, NRNT,NA,NR1 , 

1 USAVE,UNKWN,CO,COi,SIGMA,SV3,RBL,FORCX, FORCZ, EMOME, HDOT, PHI, 

2 THET,BI, BET, SAVE, WBR, EL, INDEX* 

RETURN 

END 
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SUBROUTINE BLD3C ( AMU, ALPTA,ALPTB ,CTA,CTB,NRNTNA,NRNT ,NA ,NR1 . 

1 USAVE , U/VKWN»C0»C01 ,SIGMA,SV3,RSL, FORCX, FORCZ ,EMQME» HOOT ,PHI , 

2 THET ,BI , BET,SAVE,WBR,EL , I NO EX I 
C 

c 

DIMENSION USAVE ( 144 ) ,C0{08 , 18) , COl ( 08, 18 ) , S IGMA( 144) 

DIMENSION UNKWNI 144 ) ,SV3C144) ,RBL(08) ,FORCXC 08 ,18 ) ,F0RCZ(08 0 18) p 
1EM0ME (08, 18 } , HOOT (08,18) ,PHI (06,18) ,THET ( 08 ,18),BI(08), 

2BET ( 08 ) , SAVE (144) ,W8R( 08,18) ,£L(08,18I 
C 

COMMON /CIR/PI,TWOPI,DIS 
COMMON /I0/IN,N0UT,IT7,IT8 

COMMON /Al/ NBL,NB,NR,NW ,NCV,NR2,MAXM0,NIT1 ,NIT2»NIT3 
1 »CPOMG, IT3 

COMMON /B3 / DSI,IJ,KTEST ,AMSNA, AMSNB,EMT Al , EMTB1 , ALL1 , ALL2, ROAIR, 
1 RA1, RBI, ERRSV 

COMMON /BLAD3/ CMP0,AMNA2,AMNB2,1T2,0N2DS ,IT1,CMPAR 
COMMON/PRNT/NPRNT 
C 

C MODIFY LOADS FOR RESPONSE COMPUTATION ACCORDING TO PAGE IV-8 

ENTRY BLD3C1 
IF(NPRNT.LT.2) GO TO 9 
896 WRITE(N0UT,980) 

00 850 J=1,NA 

1 = 1 

WRITE(NOUT ,8961 ) I ,J »FQRCZ( I , J) ,FORCX( I , J ) ,EMOME ( I , J ) 

8961 FORMAT (28X,2I5,3E20«7) 

850 WRITE (NOUT, 981) (I ,F0RC2( I, J) ,FORCX( I , J), EMOME( I , J), 1=2, NR) 

981 FORMAT (28X, I5»5X»3E20*7) 

9 CONTINUE 

IF(IT3.£Q. 1000) GO TO 891 
CPSC=CPOMG*CPOMG 
871 R=RA1 

873 FAC =RQAIR*CPSQ*R*R*R 
DO 87 M=1 , NR 
FACTR=FAC *BI(M) 

DO 87 N= 1, NA 
TGARY=THET (M»N) +BET (M) 

EMOME (M,N) = ( EHQMEI M ,N)— .5* (FORCZ( M, N)*COS (TGARY )+ 

1 FORCX! M,N)*SIN(TGARY) l)*FACTR*R*BICM) 

FORCZ (M,N)=FORCZ(M, N >*FACTR 
FORCX (M,N)=FORCX(M ,N ) *FACTR 
87 CONTINUE 

GO TO 890 
C 

C FORMATS 

980 FORMAT (1H1///56X»I4HL0ADS ON BLADE//32X, 1HI,4X, IHJ, 10X, 7HF0RCE Z 
1 , 13X.7HF0RCE X ,13X,6HM0MENT/ ) 

983 FORMAT ( 1H1,55X,20HFORCE IN Z DIRECTION ) 

984 FORMAT ( 1H1,55X,20HF0RCE IN X DIRECTION ) 
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985 FORMAT ( 1H1 ,57X» 16HT0RS IONAL MOMENT ) 

C 

890 IF( IT3-1000 ) 895,891,891 

891 WRITE (NOUT ,983) 

NAOVTO=N A/2+1 

NRCW=8 

NCGL=18 

CALL HARMN( NR«NA»DSI ,FCRCZ,6 ,NHAS,NROW,NCOL ) 
WRITE! NOUT *984) 

CALL HARMN ( NR, NA, OS I *FCRCX ,6 ,NMAS , NROW, NCOL ) 
WRITE (NQUT»9 85) 

CALL HARMNC NR,NA, DSI , EMQ ME , 6 ,N MA S , NROW * NCOL ) 
895 RETURN 
END 


SUBROUTINE SER IES C I »Jt NCODE* ENT ,U,V»APHI J, CLIFT, ASLOP *CMOME, CORAG) 


COMMON /CIR/PI* TWOPI *DIS 

COMMON / Al/ NBL,NB,NR,NW,NCV»NR2,MAXNQ,NIT1«NIT2*NIT3 
1 ,CP0MG,IT3 

COMMON /IO/INtNOUT » IT7*IT8 



n o o oooooooo 


SUBROUTINE TO COMPUTE CLIFT=LIFT COEFFICIENT 

ASLOP=LIFT CURVE SLOPE 
CMGME=MOMENT COEFFICIENT 
CORAG=DRAG COEFFICIENT 
FORMULAS TAKEN FROM CURVE FITS BY P.C. 

INSERT HERE ANY COMPUTATIONS TO OBTAIN F»G, AND H COEFFICIENTS 


F=I. 
G= 1 . 
H=l. 


CL IFT=0 . 
ASL0P=0. 
CM0M£=0. 
CDRAG=0, 


180 NEG=I 

EMI J=EMT*ABS (U) 

SQT=SQRTI l.-EMI J*EMI JJ 

C1=1.-EMIJ 

C2=.22689*C1 

97 IF(APHIJ) 181,182,18 2 

181 APHI J=- APHI J 
NEG=-1*NEG 

182 IF{ APHI J— 3. 1415926) 184,184,183 

183 APHIJ=APHIU-3. 1415926*2. 

GO TO 97 

184 IF( APHI J-C2 ) 185,187,187 

185 ASL0P=5.7296/SQT 
CLIFT=ASLOP*APHIJ 
C0RAG=.006+. 13131*APHI J*APHI J 
CMOME=l .4324*APHI J/SQT 

GO TO 250 

187 IFIAPHIJ-. 34906) 189,19L,191 
189 CLIFT=.29269*Cl+( 1.3*EM1 J— .59 )*APHI J 
CMCME=CL IFT/(SQT*(. 48868+. 90756*EMI J) ) 

C2=< . I22i7+.22689*EH I J )*SQT 

CLIFT=CLIFT/C2 

ASL0P=(1.3*EMIJ-.59) 

GO TO 210 

191 IF( APHI J— 2 .7402) 193,195,195 
193 S=S IN { APHI J ) 

S2=SIN(2.*APHIJ) 

S3=SIN(3.*APHIJ) 

S4=SIN(4.*APHIJ) 

CLIFT=( .080373* S+l. 04308*S2-.011059*S3+.023127*S4)/SQT 
CMC ME=(— .02827*5+. 14022*S2— .00622*S3+. 01012*S4) /SQT 
C=CGS { APHI J ) 
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C2=C0S(2.*APHIJ> 

C3=CGS(3.*APHIJ> 

C4=C0S(4.*APHIJ) 

ASLOP=l . 080373*0+2. 086 16*C2-.033177*C3+.092508*C4I /SQT 
CDRAG=I 1. 1233-.029894*C-1.00603*C2+.003115*C3-.091487*C4)/SQT 
GG TO 250 

195 IF { APHI J-3. 0020) 197,199,199 
197 CLIFT=-{ ,4704+.10313*APHIJ)/SQT 
ASL0P=-.103 13/SQT 
CMOME=- C.4786.+ . 02578*APHIJ)/5QT 
GO TO 210 

199 IFIAPHI J-3. 1415926) 200,200,260 

200 CL IFT=(— 17. 550+5. 5864* APHI J) /SQT 
ASL0P=5 . 5864/SQT 

CM0ME=(-12.5109+3.9824*APHIJ)/SQT 
210 CDRAG=I 1.1233-.029894*C0SIAPHI J)-l. 00603*C0S C2.*APHI J) 

1 +.003115*COS(3.*APHIJ)-.091487*COS<4.*APHIJ))/SQT 

250 IF(NEG) 255,255,260 
255 CLIFT=— CL IFT 
CMOME=— CMQME 
APHI J=— APHI J 
260 CONTINUE 
C 

300 CONTINUE 
RETURN 
END 
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SUBROUTINE BLD4 
C 

DIMENSION CS IX( 06» 19) 

DIMENSION DXMBD4(2122) 

DIMENSION SIGKJ( 6,6) 

DIMENSION ELNTH(20) , EMAS(20)»EIX( 20), EIZ( 20 ),RBL( 09) , 

1 XINRI20I ,DPHI(20),EIY(20) ,EPS(20) *0LZ420 ) ,ZA(20 ) , 

2 Y I NR (20) ,OMEGA(20 ) »SIG( 20 ) ,BD( 15) 

C 

DIMENSION AV(20,06) , AW (20,06 ) ,APHI (20 ,06 ) ,ASI (20,06) , 

1 ATHET (20»06 ) » ATI 20, 06 ) , AMZ( 20*06) , AVYC 20 ,06) * 

2 AMY (20,06) , AVZ(20,06J ,HDOT (04, 181 • PHI 104, 18) , 

3 THET (04,18) ,FX(04, 18) ,FZ( 04,181 ,EMO< 04,18) 

C 

DIMENSION VD0T(20, 19 } , MOOT (20,19 ) , PH IDT ( 20, 19 ) , 

1 SIDT(20,19),CSIDT(6,19) 

C 

DIMENSION FV(20»19) ,FH (20,19 ), EMOME ( 20, 19) , 

1 CS 1(6, 19) ,CS2DT(6,19) ,CH( 12,20) ,CCP( 19) , 

2 SSP( 19 ) ,CCPS( 20 ) , SCPS ( 20) , SUMA ( 20 ) » H( 20) , X( 20) , 

3 RADI S( 20) , PHI V (20 ,19) ,SI(20,19),XCSIDT(1,18), 

4 THETAI20, 19) 

C 

DIMENSION CSPH(20) ,CAPHI (20) ,CC(19) ,SC(19), 

1 EX( 19 ) , EXMT ( 19 ) , SN( 05 ) ,SMLAZ( 20 ) , SMLAX( 20) , 

2 SMLAMI20) , A LAM (19) ,SFZ( 19 ) ,SFX( 19) ,SFM( 19), 

3 FORC (19) 

C 

DIMENSION JM(4),JMP1(4), HOT (4) » APH( 4 ) , ATH(4) 

C 

EQUIVALENCE ( DXMBD4( 1 ) ,ELNTH( 1) ) , ( DXMBD4C21) ,EMAS( 1) ) ,(DXMBD4(41 ) , 
IE I X ( 1) ) , ( DXMBD4( 61 ) , RBL ( 1 ) ) , ( 0XMBD4 (70 ) ,X INR (1 ) I • ( DXMBD4 ( 90 ) , DP H 
21 ( 1 ) ) ♦ ( DXMBD4< 110) ,EIY ( 1) ) , (DXMBD4( 130) ,EPS11) ) , (DXMBD4( 150) ,DLZ( 
31) ) ,(DXMBD4(170),ZA ( l ) ) , ( DXMBD4( 190) ,YINR( 1)), (DXMBD4(210) , OMEGA! 
41) ) , ( DXMBD4I 69) ,PSIR )• 

4 ( DXMBD4(230 ) ,SIG ( 1 ) ) , ( DXMBD4I250 J , AV ( 1) ) , ( DXMBD4(430) ,AW (1)) 
5, 

5 ( DXMBD4I 610) ,APHI (1) ) ,( DXMBD4I790) ,ASI (1)),(DXMBD4( 970),ATHET(1 
6 ) ) , ( DXMBD41 1 1 50 ) , AT ( 1 ) ) , ( DXMBD4 ( 1330 ) , AMZ ( 1 ) ) , ( DXMBD4( 1 5 10 ) , AVY 
7 ( 1 ) ) , ( DXMB04 ( 1690 ), AMY ( 1 ) ) , ( DXMBD4 ( 1870 ) , AVZ ( 1 ) ) , ( 0XMBD4( 2050 I , B 
8D (1)),(0XMBD4(2065) ,RWK ) , ( DXMBD4( 2066) ,CSAL ) , ( DXMBD4 (2067) ,NM ) 
8, 

9(DXMBD4 (2068) , XCSIDT (1,1)) 

EQUIVALENCE ( DXMBD4( 2086 ) , SIGKJ( 1,1) ) , (DXMBD4( 2122) ,DAMPC) 

C 

C0MM0N/SAD3/CSIX 
COMMON /PUNCH/ NPCH 

COMMON /GCQRD1/ THETO »CPSQ, DT, AC,8C , AKL, DT02, R, ONOCP.CSALT 
COMMON /C0NL1/ ENR,PI02,XR00T,RAB,NMP1,NRP1 ,NAP1 
COMMON / Al/ NBL ,NB, NR, NW* NCV,NR2,MAXM0,N IT1 ,NIT2,NIT3 
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1 »CPOMG* IT3 

COMMON /IO/IN,NOUT, IT7,IT8 

COMMON /B3/ 051 *IJ,KT£$T,AMSNA, AKSNB,EMTA1,EMTB1, ALL1,ALL2»R0AIR» 

1 RA1, R81» ERRSV 
COMMON /8LD4X1/ 0XHBD4 

COMMON /BLD4X2/ HDOT»PHI ,THET,FX,FZ,EMO,NMAS,NMODE, NAPSON.NRil 
COMMON /BLD4X3/ AMU»NA,NR1 
COMMON /SADI/ FV,FW,EN0HE,CSI,CS2DT,CH, 
1CCP,SSP,CCPS,SCPS,SUMA,H,X,RADIS, PHI V, SI , THETA ,CSPH,CAPHI ,CC ,SC,EX 
2,EXMT,SN,SMLAZ,SMLAX,SMLAM,ALAM,SFZ»SFX,$FM,F0RC, JM, JMPltHOT.APH, 
3ATH 

COMMON /SVSNR/ SNR 
COMMON /GARY/ NGOTO 

COMMON /SA02/ VOOT, WDOT, PHIDT, S IDT ,CS IDT 

eLADE DYNAMICS PROGRAM 
COMMON /CIR/PI • TMQPI »DIS 
C 

NPAGE=1 

C SAVE NR AND SET NEW NR FOR BLADE RESPONSE SUBPROGRAM 

97 CONTINUE 
NAP1=NA+1 
DO 19 JA=1» NAP1 
DO 19 K=l» MAXMQ 
19 CSI (K,JA)=CSIX(K,JA) 

SNR=NR 
NR=NR 1 
NRP1=NR+1 

C DEFINE CONSTANTS 

R-BO(I) 

RAB=BD( 14) 

THET0=BD12I 

XR00T=BD13) 

AKL=BD( 41 
AC=BO ( 5 ) 

BC=BDI6) 

I SEC=BD{ 7) 

NRPT 1=80(8) 

CT=8D (9) 

ALPHT=BD{ 101 
EMT=BO< 11) 

AKI=BD( 12) 

OMSQ=BD( 13) 

C INITIALIZE DYNAMIC EFFECTS TO ZERO IF IN FIRST OVERALL ITERATION 

IF ( I T3— 1C00) 2941,2940,2940 
2941 IF( IT3-2)10, 10,20 
10 00 15 JA=1 , NAP1 
DO 12 1=1, NM 
VDOT l I,JA>=0. 

WOOTI I , JA )=0. 
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PH IDT ( I * JA ) =0 • 

12 SIDTU,JA)=0. 

DO 14 K=2t MAXMG 

14 CS IDT (K » JA)=0. 

15 CONTINUE 
DO 21 J A=1 1 NA 

21 CSIOT(l,JA)=XCSlDT(l s JAJ 
20 NMP 1=NM + 1 
FNA=NA 
ENR=NR 

0N0CP=1./(CP0MG*R) 

CAPT=TWOPI/CPOMG 
DT=CAPT/NA 
DT02=DT*«5 
PI02=.5*PI 
CSALT=C SAL 
CPSQ=CPOMG*C POMG 
SFXt 1 )=0» 

SFZ(l)=0. 

SFM( 1 1=0 • 

CAPHI (1>=THET0«-DPHIUJ 
CSPH( l)=COS(DPHIU}i 
CCPSCl)=COS(CAPHI( in 
SCPS(li=SIN(CAPHI(ll) 

H( 1 )=DLZ( 1 ) *COSI THE TO) 

RADIS(il=XROGT-frELNTH(lI 

COMPUTE TABLES OF COSINES ANO OFFSET DISTANCES EXACTLY THE SAME AS 
IN THE NATURAL FREQUENCY PROGRAM 
DO 40 I =2»NM 
IM 1=1 — 1 

C CUMULATIVE PHI ANGLE ALONG BLADE 
CAPHI m=CAPHI( IMD+OPF.lf I) 

CCPSU)=COS<CAPHI(II » 

SCPSI II=SINICAPHI< I I ) 

C SPH (I ) =COS ( CAPHI ( 1 1 -THETO I 

C TOTAL DISTANCE TO RIGHT SIOE OF SECTION FROM CENTER OF ROTATION 

RADIS ( I )=XROGT +ELNTHI l 1 
C AVERAGE MASS USED IN COMPUTATION 

31 SUMA « IM1 J=.5*(EMAS< IMO+EMASUt) 

H(I)=H!1I 
DO 35 J=l» IM1 

HC I) = HII)+DLZU+1I*CCPS( Jl 
RAD IS ( I )=RADIS( I )+ELNTF( Ji 
35 CONTINUE 
40 CONTINUE 

C SINE AND COSINE OF OMEGA * T 

DO 45 JA=lt NAP1 
OMT=C POMG* { JA— 1 • ) *DT +PS IR 
CCPI JA)=COSIOMT> 

45 SSP( JA)=SIN(OMT ) 
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SUMA INM ) = . 5*EMAS< NN ) 
NGCT0=1 
CALL CQNVL 
CALL 6C00RD 
CALL RSPNS 
GO TO 2881 
2940 NGOTO=2 

CALL RSPNS 
CALL SHEAR 

IF INPCH.EQ.1J CALL RSPZZ 
2881 CONTINUE 

DO 50 J=lt NAP1 
DO 50 K=lf MAXHO 
50 CS1X(K,J)=CSI(K,J) 

RETURN 

END 
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SUBROUTINE CGNVL 

REAL XX(06).FXX106I,FZZ<06).EMOOI06I 

DIMENSION HOOT 1 04 1 IS* . PH It 04 .18 1 »THET(OA* 18I.FXI 04* 1SI.FZC04.1 ». 
lEHO(04t 18 ) 

DIMENSION VD0T^20#Z9> .HOOT 120.19 1 .PHIOT 120. 191. SIDTt 20*101 .CSIDT 
^DIMENSION fV(20,l91.FHI20,19l,£HOME(20aSl.tSH04,t9l.^^o li)((2 o,, 

- SP,CI 

^DIMENSION JHI04I » JMP1 1 041 .H0K04I .APH104I .ATHC04) 

DIMENSION DXHBD412122) 

DIMENSION SIGKJI6.6) ciy(20). RBL104I » 

;ss,«5 ; nuniJ l !SI ’ 0 LZ ‘ 20 “ ZA * 20 ’ * 

2 AMY (20»Q6)»AVZt20»06l 

EQUIVALENCE COXMBO^t 11 .ELNTHtl I^»4DX«BD^J211 .eMAS Cll 

.ptv i 1) )« 1DXMBD4(6II »RBL II ) ** *OXMB ppS ( I ) ) • I DXMBD 4I 150 ) fDLZt 

I ( Y n!"lDii D 8 S4a90.. v liM i n , I D XMBD4.Z 1 0.,0MEGA 1 

^'’iS^ztoi’.sff.ni.lO^iZSOl.AV (lH.I0XMBD4t430I.AM .1). 

5tOXMBC4(6lO) * APH l t l j | * j ^qxmBQ 4^1330^ lli?*^0XMB04( 1510 )^AVY 

/ nxMRD4t 1150 ) » AT U )J *CDXKBU , &u7 # 1 » l , {0XKB04t 20501 ♦» 

U“. i; ii”» : sssissKia* . -<~‘^- nh , 

°k 5 wSt EN?f ImmIwIm U 1 ’.S H.KJ U . I n . 1 0XMBD4 ( Z12ZI . OAHPC I 


COMMON /BLD4X1/ DXHBD4 


COMMON /Al/ NBL.NB »NR» NW .NCV.NR2.MAXM0.N1T1.NIT2 . NIT3 

DS^HO^XTEStIamSNA .AMSNB.EMTA1.EHTB1.ALL1 .ALL2.R0AIR. 
^COMMON^/CONLl/ ENR.PI02.XR001.RAB.NMP1 .NRP! .MAPI 
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COMMON /BLD4X2/ HOOT , PHI ,THET,FX ,FZ ,EMO „NMAS ,NMODE, NAPSON, MR1 1 

COMMON /BLD4X3/ AMU»NA »NR1 

COMMON /SADI / FV,FW, EMOME, CS I , CS2DT , CH, 

1CCP, SSP,CCPS,SCPS, SUMA, H,X, RADIS, PHIVtSl ,THETA,CSPH, CAPHIsCC, SC, EX 
2 , EXHT , SN,SMLAZ, SMLAX«SMLAM, ALAN, SFZ , SFX»SFM,FORC , JM, JMPloHDY , APH, 
3ATH 

COMMON /SAD2/ VDGT,WDOT»PHIOT 0 SIDT,CSJOT 
COMMON/ PRNT/NPRNT 


COMPUTE LAMBDAS I ARGUEMENTS OF COSINEi 
COMPUTE FOURIER COEFFICIENTS AT EASH AZIMUTH 

R-BDCII 

IR=I 

DO 90 1=1, NM 
IM 1= I-I 

Xm=XR00T*.5*ELNTHU& 

IF (IMIS 88,88,83 
83 DO 85 J=1,IM1 
85 X(I)=X(I)+ELNTH(JI 
XINM+U =RA8 

COMPUTE LAMBDA 

IF (X(I).GT. RHK ) GO TO 90 
88 IF (XUIoGT.RWK) GO TO 90 
SFZ ( I )=0 . 

SFX( I )=0. 

SFM(I)=0. 

IR=I 

90 CONTINUE 
22 CONTINUE 

SHALL A COEFFICIENTS 

RX=R 

XX( li=RHK*RX 
DO 95 JA=1,NR1 
JAPiX=JA+l 

95 XX( JAP1X)=RBL< JA)*RX 
NftlP2=NRl+2 
DO 200 JA=1,NA 
00 11 JX=1 »NR1 
JG= JX+1 

FXX(JG)=FX( JX,JAJ 
FlU JG)=FZ( JX,JA) 

EMOOI JG)=EMO(JX, JA) 

11 CONTINUE 
FXX ( 1 >=0.0 
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fzzi n=o.o 

EMQ0(1)=0.0 
FXX(NRiP2>=0« 

FZZ(NR1P2 )=0 o 
£M00(NR1P2)=0. 

XX(NR1P2)=RA0 

C™I N T t X.XX.FXX,SFX.NZ,NRlP|. 

CALL ALIN! C X, XX, F [V 2} 

CALL ALINT ( X »XX * EMOO, SFH, NZ*NR1P2» 

loads ready for response calculation 
m a Sa S =-sfz a ) * ccp si i »- sfx m *SCP s 1 1 » 

cu/ T i a l=SFZI I)*SCPS( I )-SFXt I)*CCPSl II 
EHOMcit » JM = SFHt 1J + ZAL I l*FV( I# JAI 
150 CONTINUE 
200 CONTINUE 

MAKE FIRST AND LAST ELEMENTS THE SAME 

DO 210 1 -1 t NM 
FVa»NAPlI=FV( I« 1 1 
FH(ItNAPU=FWCI*U 
EMOMEI I 9 NAPU=EH0MECI »1> 

SI DT I I » NAP1 )=S IOT (I * 1 ) 

210 CONTINUE 

IFIIT3.EQ.1000> GO TO 100 
IFINPRNT.LT. 2) RETURN 
100 CONTINUE 

WRITE 16*211) 

211 FORMAT (3H0FV//J 
WRITE! 6* 9875) 

WRITE (6,212) 

212 FORMAT I3H0FW//I 

WRITE(6*9875) a 

WRITE (6.213) 

213 “a!" < U">HEU ,JX> • JX=1 »NAP1) .W.NH. 

WRITE (6*216) 

214 << SlOTII,JXI.4X-l.NAPU.t-l»NH) 


FVII sJX) ♦ JX=1 *NAP1 ) *1—1 * NM) 
FWI 1 »JX) * JX=i»NAPl> *1=1 »NM) 


END CONVERSION OF AERODYNAMIC LOADS 
(IH ,10612.4)) 


RETURN 

9875 FORMAT l 
END 


SUBROUTINE ALINT IX»R»F»FR*NN»NLi 
DIMENSION XINM) ,R(NL), FI NL J.FRCNMJ 
NMM1=NM— I 
DO 2 1=1. NM 
2 FRCI)=0.0 
1 = 1 
L=1 

4 XIP1=XII+1) 

RL=R(L) 

IF { X I PI .GT. RL) GO TO 5 
1 = 1 + 1 
GO TO 4 

7 IF! I .GE. NMM1J RETURN 
1 = 1+1 

XI=X( I) 

XIP1=XII+1J 

IF! XI PI .LT. RLP1 ) GO TQ 10 

FRI I )=FR( I )+.5*IFL+FL+8S*( XI+RLP1-RL-RL ) )*{RLP1-XI > 

8 L=L+1 

5 LP1=L+1 

IFILP1 .GT. NL I RETURN 
FLP1=F ( LP1 } 

FL=F( LJ 
RLP1=R(LP1) 

RL=R(L) 

IFIXIP1 .LT. RLP1 i GO TO 9 

FRI I)=FRt II + .5*IFLP1+FD*{RLP1~RL> 

GO TO 8 

9 BS=C FLP1— FL )/< RLP i-RL ) 

FR(I)=FR(n + .5*(FL+FL+8S*IXIPl-RL) )=MXIPl-RL> 

GO TO 7 

10 FR(IJ=FRII) + . 5*1 FL+FL+-BS*! XI +XI Pl-RL-RL > ) *1 XI Pl-XU 
GO TO 7 
END 
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SUBROUTINE G COORD 
C 

DIMENSION HDOT( 04,18) ,PHI (04 ,1 8) ,THET (04 , 18 ) ,FX(04, 18) ,FZ( 04, 18) , 

1 EMO (04, 18 ) 

DIMENSION EIZI20) 

DIMENSION VDOTI 20,19) ,WDCT(20, 19 ) .PHIDTI20, 19 ) ,S IDT 120, 19 ) ,CS IDT 
1(06,19) 

DIMENSION FV(20,19) , FW (20 , 19) , EMOME (20,1 9 ) ,CS I ( 06 , 19 ) ,CS2DT { 06, 19) 
1,CH(12,20),CCP(19),SSP(19) ,CCPS( 20) , SCPS( 20) , SUMASi 20 ) ,H(20) , 

1 X ( 20 ) , 

2 RAD IS(20) ,PHIV(20,19),SI (20,19 ) ,XCS IOT( 1 , 18 ) ,THETA{ 20, 19 ) 

DIMENSION CSPH(20)»CAPHI(20)»CC( 19),SC(19) ,EX(19) ,EXMT( 19) ,SNI05) , 
ISMLAZI20) , SMLAX (20 ),SMLAM(20),ALAM( 19),SFZ( 19),SFX( 19),SFM( 19), FOR 
2C( 19) 

DIMENSION JM(04), JMP1 ( 04 ), HDT( 04 ) , APHC 04) ,ATH(04) 

C 

0 IMENS ION DXMB04I 2122) 

DIMENSION S IGKJ (6,6 } 

DIMENSION ELNTHI20) ,EMAS(20) ,EIX(20) , RBL(04), 

1 XINR(20),DPHI(20),£IY(20) ,EPS ( 20) , DLZ( 20) , ZA ( 20) , 

2 YINRI20) s? 0MEGA(20),SIG(20),BD(15) 

C 

DIMENSION AVI 20, 06) , AW(20o06) ,APHI (20,06) ,ASI (20,06) , 

1 ATHETI20 ,06) , AT (20, 06), AMZ( 20 ,06 ) , AVY ( 20,06) , 

2 AMYI 20,06) ,AVZ(20,06) 

C 

EQUIVALENCE (DXMBD4( 1) ,ELNTH(1)),( DXMBD4 (21 ) , EM AS (1)1, ( DXMBD4(41 ) , 
1EIX ( 1) ),(DXMBD4(61) , RBL (1) ) , ( 0XMBD4I70) ,XINR (1 1 ) , I DXMB04I90 ) ,DPH 
21(1) ) ,(DXMBD4( 110), EIY ( 1) ), (0XMBD4( 130) ,EPS( 1) ) , (DXMBD4( 150) ,DLZ( 
31)) , ( DXMB04( 170) ,ZA (1 )) , ( DXM8D4 (190 ) ,YINR( 1 ) ) , < DXMBD4( 2 10 ) , OMEGAC 
41 ) ) , ( DXMBD4 (69),PSIR ), 

4 (DXMBD4I230) ,SIG (1 ) ) , ( DXMBD4(250 ) ,AV ( 1 ) ) , ( DXMBD4I 430) , AW ( 1) ) 

5, 

5 ( DXMBC4 ( 6 10 ) ,APHI l 1 ) ) ,( DXMB04I 790) ,ASI (1)),(DXMBD4( 970),ATHET(1 
6) ) ,(DXMBD4( 1150) ,AT ( 1 ) ) , ( DXMBD4 ( 1330 ) , AMZ (1) ), ( DXMBD4( 1510), AVY 
7(1) ) , (DXMBD4( 1690) ,AMY { 1) ) , ( DXMBD4 (1870), A VZ (1 ) ) , ( DXMBD4(2050 ) ,B 
8D (1) ),(DXMBD4(2065),RWK ) , ( 0XMBD4( 2066 ) ,CSAL ) , ( DXMBD4( 2067 ) ,NM) , 
9(0XMBD4{2068) ,XCS IDT ( 1 ,1 ) ) 

EQUIVALENCE (DXMB04{20 86 ) ,SIGKJ( 1,1) ) , (DXMBD4(2122) , OAMPC) 

C 

COMMON /BLD4X1/ DXMB04 
C 

COMMON /GC0RD1/ THETO , CPSQ, DT, AC, BC , AKL, DT02, R,ONOCP , CSALT 
COMMON /CONL 1/ ENR , PI02 ,XROOT ,RAB ,NMP1 ,NRP1 ,NAP1 
COMMON /Al/ NBL ,NB , NR, NW , NCV,NR2 ,MAXMO,N IT1, NIT2, NIT3 
1 ,CPCMG , I T3 

COMMON /I0/IN,N0UT,IT7,IT8 

COMMON / 83/ DSI , I J , KTEST , AMSNA, AMSNB , EMTA1 , EMTB1, ALL1 ,ALL2,R0AIR , 

1 RA 1 , RB 1 , ERRSV 

COMMON /BLD4X2/ HOOT , PHI ,THET,FX ,FZ , EMO, NMAS, NMODE, NAPS0N,NR1 1 
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COMMON /BLD4X3/ AMU,NA,NR1 
COMMON /SADI/ FV » FW , EMOME, CSI, CS2DT ,CH, 
i CCP,SSP»CCPS,SCPS, SUMAS.H.X »RAQIS,PHIV„SI»THETA„CSPH,CAPHI d CC,SC, 

1 EX, 

2 EXMT , SN ,SMLAZ , SMLAX , SMLAM, ALAM , SFZ , SFX ,SFM ,FQRC , JM» JMP1 »HDT p APH, 
3ATH 

COMMON /SAD2/ VDOT, HOOT, PH1DT, S IDT, CSIDT 
COMMON /GARY2/ XINPT.FINPT 
COMMON/PRNT /NPRNT 

CERTAIN COEFFICIENTS FC COMPUTATION CF TOTAL GENERALIZED FORCES 
AND MOMENTS 

SNTHC=SIN(THETO) 

DO 3C0 1=1, NM 

GI=SUMAS { I J *CPSQ* (H (I) -s-EPS I I )*CCPS l I ) ) 

CHi I, I)=G1*SCPSI I ) 

CHI 2, I )=SUMASI I )*IEPSI I )-t-H 1 1 >#CSPHI I ) /CCPSC I ) > 

CHI 3, n=-2o*SUMAS(I)*CP0MG*EPS( I) 

CHI4,l)=Gl*CCPSII) 

CHI 5, I ) = -SUMAS l I ) *HI I )*S INICAPHI I I ) -THETO} /CCPS II) 
CHI6,I)=CHI3,I)*CCPSIl J 
CHI 3, I )=CHI 3,1 ) *SCPS I I ) 

CHI 7, I)=-CPSQ*SCPSI I)*XINRII )*CCPSl I J-SCPSI I )*EPSI I )*Gi 
CHI 8, 1 )=-XINRI D-EPSII )*CHI2„I) 

Chi 9, I )=2„*CPOMG*SCPSI I) *t XINRI I )*SUMASt I )*EPSI D^EPSII J) 

CHI 10, 1 )=SUMASt I)*CPSQ*EPSI I ^RADISII) 

CH{ 12,I)=-2.*CP0MG#IXINRII)*SUMASII)<'EPSm»EPSI I J ) 

CHIU, I ) = CHI 12* I I^SCPSI I )— 2o ^CPOMG^SUHAS I I ) $EPSl I)*Hl I)*SNTHO 
1 /CCPSII) 

300 CONTINUE 
IF I NPRNT .LT o 2 ) GO TO 9 
WRITE 16,301) 

301 FORMAT I3H0CH//) 

WRITE 16,9875) I ICH I IX , I ) , IX=l, 1 1 ) „ 1= 1,NM ) 

9 CONTINUE 

C COMPUTE SUPERPOSITION INTEGRALS IN EACH KTH MODE 

DO 550 K=1 , MAXMQ 
SIGOM=SIGIK)*OMEGAI K) 

0MK2=CMEGA I K ) *OMEGA IK) 

CMBR=CMEGAIK)*SQRT11.-SIGIK)*SIGIK) ) 

CMT=OMBR*DT 

IFINPRNT.LT. 2) GO TO 10 

WRI T£ 16,6001) K.SIGIK) .OMEGA IK), DT 

6001 FORMAT! 1H0.4HK = ,I3,5X,8HSIG = »G10.3,2X,8H0MEGA = ,G10.3,2X» 

1 SHOT = , G10.3 ) 

10 CONTINUE 
SIKDT=SIN10MT) 

CSKDT=COSIOMT) 

0MT2=CMT*0MT 
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0MT3=CMT2*0MT 
IF ( OMT- .05 ) 303,307,307 
303 GMT4=CMT2*QMT2 
0MT6=GMT4*0MT2 

ALPHA, 8 ETA, GAMMA COEFFICIENTS FOR FILONS RULE OF INTEGRAION 
SEE APPENDIX OF BOOK ON INTEGRAL TRANSFORMS BY TRANTER 
FILA=0MT3/22.5-IOMT4*0MT)/157.5+C0MT6*GMT)/2362.5 
F ILB= .666 6666666666 7+0 MT2/ 7. 5-0MT4/26. 2 5+QMT6/283. 5 
FILG=i. 3333333333333-0 KT2/7. 5+0MT4/2 10.-QMT6/ 11340. 

GO TO 308 

307 FILA=(0MT2+GMT*SIKDT*CSKDT-2.*SIKDT*SIKDT)/0MT3 

FILB=2.*( OMT* 1 1 • +CSKDT*C SKDT )-2 .*SI KDT*CSKOT ) /0MT3 
FILG=4.*l SIKDT-OMT+CSKDT )/0MT3 
3C8 AOT=F ILA*DT 
BOT=FILB*DT 
GQT=F ILG*DT 
DO 310 JA=1 , NAP1 
T= ( JA— 1 • ) *DT 
FORC ( JA)=0. 

OMT =GMBR*T 
CC( JA)=COSIOMT) 

SC( JA)=SIN(OMT) 

310 EXMT ( JA ) =EXP t— SIG0M*T ) 

DO 360 J A=1 , NA 

THC1=CPGMG* ( AC*CCP( JA}— BC*SSP( JA ) ) 

THC 2=-CP SQ* ( AC* SSP ( J A )+BC*CC PC JA ) ) 

C COMPUTE TOTAL GENERALIZED FORCES, PAGE IV-3,IV-4 

DO 350 1=1, NM 

QV=CH (l,I)+CH(2«I) *THC2+CH <3 »I ) *S IDT ( I , J A) +FV ( I , JA) 
QW=CHI4,I)+CH15, I)*THC2+CH<6, l)*SIDT( I, JA)+FW{ I, JA) 

QPHI=CH (7»I)+CH(8,I) *T HC2+CH (9 , I }*S IDT ( I , JA )+EMOME( I , JA) 
QSI=CH( 10,1 )+CH(ll, I )*THC 1+CHI 12 , I ) *PHIDT ( I , JA)-CH(3 , I )* 

1 VDOT ( I , J A )— CH (6,1) *WDOT ( I , J A ) 

318 I F ( I— 2 ) 330,320,330 
320 Gi=AKL/ELNTH(2)*SIDT( i,JAJ 
QV=QV+SCPS(2J*G1 
QW=Q W +CC PS { 2 J *G1 

C GENERALIZED FORCE ACTING IN EACH NORMALIZED MODE 

330 FQRC( JA) =FORC( JA) +QV*AVU ,K)+QW*AW( I ,K )+QPHI*APHI ( I,K)+ 

1 QSI*ASI(I,K) 

350 CONTINUE 

DO 355 K J=1 , MAXMO 

355 FORC! JA)=FORCtJA)-SIGK JCK,KJ )*CSIDT( KJ, JAI 

360 CONTINUE 

FORC ( NAP1 )=FORC ( 1 ) 

WRITE (6,361 ) 

361 FORMAT ( 5H0F0RC// ) 

WR ITE ( 6 , 9875 ) (FORCiJA) ,JA=1,NA) 

DO 370 JA=1 , NAP1 

370 EXl JA)=( l./EXMTI JA) )*FORCI JA) 
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380 

400 

410 

420 
4201 

421 

422 

423 

425 

430 

450 

455 


JGG=1 

COMPUTE SUPERPOSITION INTEGRALS AT EACH AZIMUTH POSITION 

INTEGRALS ON PAGE IV-6 

CO 5C0 JAA=1 ,NAP1 

CSITMP-=CSi (KtJAAJ 

CSITXP=CSIDT (KtJAA) 

JAAM=JA A— 1 
T= ( JAA— 1 . ) *DT 

GO TO (400,410,420,430 ), JGQ 
CSI ( K , JAA) = 0. 

CSICT (K,JAA)=0. 

JG0=2 

GO TO 5C0 

SAVE=0T02*£X<2) 

CSINT=SAVE*CC(2)+0TG2*F0RC(1) 

SNINT=SAVE*SC(2) 

JGG=3 
GO TC 450 
JG0=4 

CSINT=EX( JAA)*(ADT*SC( JAA >+„5*BDT *CC( JAA } ) *FORC( 1 ) *80T*» 5 
SNINT=EX( JAA)*(-AOT*CC( JAA )+ .5 *BDT*SC I JAA I ) +FORC ( 1 ) *ADT 
J AGG= 1 

DO 42 5 JA=2 , JAA M 
GO TO ( 422,423) ,JAGO 
SAVE=GOT*£X< JA) 

CSINT=CSI NT+CC( JA)#SAV£ 

SNINT=SNINT+SC( JA)*SAVE 
JAGC=2 
GO TC 425 
SAVE=BOT*EX(JA) 

CSINT=CSINT+CC( JA)*SAVE 

SNINT=SNINT+SC( JA)*SAVE 

JAG0= 1 

CONTINUE 

SAVEC=CSINT 

SAVES=SN I NT 

GO TC 450 

CS INT=DT02* ( CC ( J AA ) *EXC JAA ) *CC ( JAA-1 ) *EXI JAA— 1 ) ) +SAVEC 
SNINT=0r02MSCtJAA)*EX(JAA) + SC<JAA-l}*EX< JAA- 1) ) +SAVE S 
JGC=3 

CSI (K,JAA)=EXMT(JAA)*( SC ( JAA )*CS INT-CC l JAA)*SNINT) 

CSIOT (K, JAA )=EXMT( JAA) *(CC( JAA } *CS I NT+SC ( J AA } *SN INTI 
CSHK,JAA)=CSI (K,JAA)/OMBR 
IF ( JAA— NAP1 ) 457,455,455 

SKINT=EXMT( JAA)*(SC( JAA ) *CSI NT-C C( JAA)*SNINT) 

CKINT=EXMT( JAA)*(CCI JA A ) *CS I NT+ SC ( JAA)*SNINT) 

CK=1«-EXMT( JAA)*CC( JAA) 

SK=EXKT( JAA)*SC( JAA) 

S=<SK*SK+CK*CK) 

S1=(SK*CKINT+CK*SKINT)/S 
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S2=(CK*CKINT-SK*SKINT)/S 
457 CONTINUE 
500 CONTINUE 

COMPUTE CUANTITIES Z ETA (CSI) AND ZETA DOT (CSI DOTI FROM 
SUPERPOSITION INTEGRALS 

COMPUTATION OF ZETA,ZETA-DOT , SEE PAGE IV-6 
DO 520 JAA=1 »NAP1 

CSI (K» JAAI=C SI ( K, JAA)*EXHT! JAA)* (CC ( JAA)*S1+SC( JAA)*S2 )/OHBR 
CSIDT(K,JAA)=-SIGOM*CSIIK, JAA)+EXMT( JAA)*(CC( JAA)*S2~SC< JAA)*S1) 
1 +CSIDT ( K« JAA) 

520 CS2DT(K,JAA)=F0RC( JAA)-0MK2*CSI ( K, JAA )-2.*SlG0M*CSIDT!K, JAA) 

IF (K.NE.l) GO TO 550 
00 540 JAA=1,NAP1 

CS I(K,JAA)=(CS I ( K, JAA) *FINPT*C5ITMP*( 1»— FINPT) ) 

540 CSIDT(K,JAA)=(CSIOT(K, JAA) *FINPT+CS ITXP*( l.-F INPT ) ) 

550 CONTINUE 

IF I NPRNT.LT. 2 1 RETURN 
WRITE (6*551) 

551 FORMAT (4H0CSI//) 

WRITE (6*9875) (( CSI (K, JAA ) ,K=1« MAXMO) , JAA-1,NAP1) 

WRITE (6,552) 

552 FORMAT (6HQCSIDT//) 

WRITE (6, 9875) ( ( CSIDT ( K, JAA) ,K=1, MAXMO) «J AA=1,NAP1) 

WRITE (6,553) 

553 FORMAT (6H0CS2DT // ) 

WRITE (6,9875) ( (CS2DT ( K, JAA) ,K=1, MAXMO) ,JAA~1,N API ) 

RETURN 

9875 FORMAT! ( 1H ,06G12.4)) 

END 
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SUBROUTINE RSPNS 
C 

DIMENSION VX (20 » 191 , HX ( 20, 19 ) 

DIMENSION HD0T(04,18) , PH II 04 ,18 > ,THET (04, 18 1, FX( 04, 18) • FZ ( 04* 18) « 
1EM0( 04* 18) 

DIMENSION EIZ(20) 

DIMENSION VDOT (20*19) * WDGT (20,19 ) *PHIDT( 20, 19 ) . S IDT( 20* 19 D ,CS IDT 
1(06,19) 

DIMENSION FV(20,19) ,FW (20,19 ),EMOME( 20,19 ),CS I ( 06,19 ),CS2DT{ 06, 1^ 
1,CH( 12, 20) ,CCP( 19) ,SSP (19) ,CCPS(20) ,SCPS (20 ) ,SUMA(20 ) , H(20 ) ,X (20 ) 
2RADIS(20),PHIV(20,19),SI(20,19),XCSIDT( 1,18) ,THETA( 20,19) 
DIMENSION CSPH(20) ,CAPHI (20) ,CC ( 19 ) , SC ( 19 ) , EX( 19) , EXMT( 19),SN(05) 
1SHLAH 20 ) , SMLAXI20) ,SMLAM(20),ALAM(19) ,SFZ(19) ,SFX(19) ,SFM{ 19),FC 
2C( 19 ) 

DIMENSION JM(04),JMP1(04) *HDT ( 04) , APH( 04) , ATH( 04) 

C 

DIMENSION DXMBD4(2122) 

DIMENSION SI GKJ (6 ,6 ) 

DIMENSION ELNTH(20) , EM AS (20) ,EIX(20), RBL(04), 

1 X I NR (20 ) , DPHI (20 } , E IY ( 20 ) , EPS ( 20 ) , DLZ ( 20 ) , ZA ( 20 ) , 

2 YINR( 20) , OMEGA (20) , SI 6(20) ,BD(15) 

C 

DIMENSION AV(20,06) , AW (20 ,06 ), APHI ( 20,06) , ASI ( 20,06) , 

1 ATHET (20,06),AT(20,06),AMZ(20,06) ,AVY(20«06), 

2 AMY ( 20 ,06 ) , AVZ ( 20 , 06 ) 

C 

EQUIVALENCE ( DXMBD4I 1 ) ,ELNTH (1 ) ) , ( DXMBD4 (21 ) , EMAS ( 1 ) ) , ( DXMBD4(41 I 
1EIX ( 1 ) ) , ( DXMBD4I 61 ) , RBL ( 1 ) ) , ( DXMBD4C 70) ,XINR( 1) ) , ( DXMBD4( 90) , DF 
21(11) , ( DXMBD4( 110) ,EIY { 1 ) ) , (DXMBD4( 130 ) , EPS ( 1 ) ) , ( 0XMBD4( 150) ,DL2 
31) ) ,( DXM8D4( 170) ,ZA (11) ,( DXMBD4( 190) , YI NR ( 1 ) ) , I DXMBD4(2 10 ) ,OMEG/ 
41 ) ) , ( DXMBD4 (69 ) , PSIR >, 

4 (DXMBD4( 230) »SIG { 1 ) > , { DXMBD4 ( 250 > ,AV (1 ) ) , ( DXMBD4 (430 ), AH (1! 
5, 

5 (0XMBD4 (610) ,APHI ( 1 ) ) , ( DXMBD4I 790 ) , AS I ( 1 ) ), ( DXMBD4( 970),ATHET( 
6) ) , (DXMBD4I 1150) , AT (1) ) , ( DXMBD4I 1330 ) , AMZ (1 > ) , ( DXMBD4 1 1510 ) , AVX 
7(1)),(DXMBD4( 1690), AMY (!)),( DXMBD4( 1870) , AVZ (1) ) , ( DXMBD4( 2050) , 
80 (1) ),(DXMBD4(2065),RKK ) , ( OX M8D4 (2066 ) , CSAL ) , < DXM B04( 2067 ) , NM 
8, 

9 ( DXMBD4 (2068 ) , XCS IDT { 1 , 1 ) ) 

EQUIVALENCE ( DXMBD4 (2086 ), SI GKJ ( 1 , 1 )), (DXMBD4I 2122 ) ,DAMPC i 
C 

COMMON /BLD4X1/ DXMBD4 
C 

COMMON /GC0RD1/ THET0,CPSQ,DT,AC,BC,AKL,DT02,R,0N0CP,CSALT 
COMMON /C0NL1/ ENR, PI 02, XROQT , RAB,NMP 1 ,NRP 1,NAP1 
COMMON /Al/ NBL , NB,NR, NH ,NCV,NR2 ,MAXMC,N IT1 ,NIT2,NIT3 
1 , CPOMG, IT3 

COMMON /IO/IN,NQUT, lt7,IT8 

COMMON /B3/ DSI ,1 J , KTE ST,AMSNA , AMSNB ,EMT Al , EMTB1 , ALL1 , ALL2, ROAIR , 
1 RA1, RBI , ERRSV 
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Ci o 


COMMON /8LD4X2/ HOOT , PHI ,THET, FX, FZ , EMO , NMAS,NM0D£,NAPS0N,NR11 
COMMON /8L04X3/ AMU,NA,NR1 
COMMON /SADI/ FV,FW,£MQME ,CSI,CS2DT ,CH, 
lCCPfSSPtCCPSt SCPS »SUMA »H »X t RAO I S»PHIV*SI , THETA ,CSPH, CAPH I , CC , SC,EX 
2 » E XMT » SN , SMLAZ » SMLAX , SMLAM, ALAM, SFZ » SFX, SFM,FORC» JM, JMP1 »HDT , APH, 
3ATH 

COMMON /SVSNR/ SNR 
COMMON /GARY/ NGOTO 
COMMON /SAD6/ VX t WX 

COMMON /SA02/ VOOT, MOOT » PHIOT , S I OT, CS IDT 
COMMON/PRNT /NPRNT 

COMPUTE RESPONSES FROM MODE SHAPES AND ZETAS 
DO 575 JA=1*NAP1 
DO 575 1=1 »NM 
VX ( I * JA) =0. 

WX( I, JA )=0. 

VDOT( I, JA)=0. 

MOOT! I » J A) =0. 

PH I V C I , J A ) = 0 • 

PH IDT ( I , JA) = 0. 

SI(I,JA)=0. 

S IDT I 1 1 J A 1 = 0 « 

575 THETAU ,JA)=0. 

C RESPONSE VARIABLES OF INTEREST, PAGE IV-7 

DO 580 JA=i,NAPl 
DO 580 1=1, NM 
CO 580 K=1 , MAXMO 

VX ( I , JA ) =VX ( I , J A ) +AV ( I »K l*CS I ( K , JA ) 

MX (I ,JA)=WX( I,JA)+AW( I ,K)*CSI(K,JA) 

VDOTI I, JA) = VOOT( I , J A l + AVI I , K I *C SIDT I K , JA ) 

WDOT ( I , J A) = WDOT ( I , J A ) + AM ( I ,K )*CS IDT I K, J A > 

PHI VI I, JA) = PHIV(I ,JA) + APHII I ,KI*CSI I K, JA » 

PH IDT I I,JA) = PHIDTI I,JA )+APH I (I,K)*CSIDT(K,JAI 
SI ( I, JA)=S1 C I, JAI+ASI ( I , K ) *CSI IK , JA ) 

SIDT ( 1, JA)=SIDT( I,JA)+ASI( I ,KI +CSIDT ( K , JA) 

THETAU, JA»=THETA(I, JAJ+ATHETI I,K)*CSI(K,JA J 
580 CONTINUE 

IF( IT3.EQ.1000) GO TO 9 
IFINPRNT.LT. 2) GO TO 3 
9 CONTINUE 
NAP1=NA 

WRITE (6,99881 ((VX(I,JA),JA=1 , NAPl ) , 1= 1,NM ) 

WRITE (6,9989) (I WX (I , JA) , JA*1 ,NAP1 ) , 1=1 ,NM ) 

9988 FORMAT (/1H0.3HVX //(8E14.6)) 

9989 FORMAT (/1H0.3HWX //(8E14.6)) 

WRITE (6,9990X4 VDOT( I,JA) ,JA=1,NAP1) ,I = 1,NM) 

WRITE (6,9991 ) ( ( WDOT ( I, J A) , JA=1 , NAP 1 ) , 1= 1,NM) 

WRITE(6»9992)(( PHIV(I.JA) , JA=1 , NAPl ), 1=1 ,NM) 
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noon 


WRI TE (6,9993) ( < PHIDTl I , JA) , JA=1 ,NAP1 1 , 1=1, NM) 
WRITE ( 6,99941 ({ SI (I ,JA) . JA=1,NAP1) ,l=l,NM) 
WRITE (6,9995)1 ( S IDT (I , J A ) , J A=1 ,NAPI ) , I* 1,NM ) 
WRI IE I 6,9996) I (THETA (I • JA) , JA=l ,NAP1 ) ,1*1 ,NM) 
GO TO (3,4), NGOTO 

9990 FORMAT (/IH0,5HV00T //I7GI4.6)) 

9991 FORMAT ( / IHO , 5HW00T //(7G14.6)) 

9992 FORMAT (/IHO, 5HPHIV //(7G14.6)) 

9993 FORMAT (/ IHO, 5HPHIDT//( 7G14.6)) 

9994 FORMAT (/1H0»5HSI //(7G14.6)) 

9995 FORMAT (/IHO, 5HSIDT //(7G14.6)) 

9996 FORMA T ( /IHO, 5HTHE TA//I 7G14.6)) 


CONVERT RESPONSE TO FORM FOR LOADS COMPUTATIONS 
3 DO 610 1=1, NM 
610 X ( I ) =RAD I S ( I ) 

MJ= 1 

DO 625 1=1, NR 
RRBL=R*RBL ( I ) 

M=MJ 

DO 620 J =M , NM 
MJ= J 

IF (X(J) .LT.RRBL) GO TO 620 
K = J 

IF (K.EQ.l) K=K + 1 
JM ( I ) =K— 1 
JMP1 ( I ) =K 
GO TO 625 
620 CONTINUE 

JM( I ) =NM— 1 
JMP 1 ( I ) = NM 
625 CONTINUE 

DO 700 JA=l , NA 
THETC=AC*SSP(JA)+BC*CCP( JA) 

THCl=CPOMG*( AC*CCP( J A ) -BC*SS P( JA ) ) 

DO 650 M=1,NR 
RRBL=R*P8L(M) 

IF( JM(M) ) 630,650,630 
630 I = JM(M) 

IP1=JMP1(M) 

FCTR=(RR8L— X( I ) )/(X ( IP1)-X ( I )) 

DO 640 11=1,2 

THT=THETO+THETC+PHIV( I,JA) 

PH=— THE TA(I,JA)*CCPS( I )~SI ( I ,JA)*SCPS( II 

HD=CNOCP*( VDOT ( I,JA)*CCPS( I)-WDOT( I,JA)*SCPS( I > *ZA( I) *PHI DTI I , JA ) 
ICCPS(I) HZAm-HlI) ) * ( THC1+CP0MG+PH ) )— AMU*CSALT*CCP(JA)*PH 
GO TO (637, 645), I I 
637 HDT(M)=HD*( l.-FCTR) 
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640 

645 


650 


660 

700 


10 

24 


29 


22 


23 


28 

2935 

4 


938 

750 

900 

C 


ATH(M)=THT*( 1«— FCTR) 

APH(M)=PH*(1.-FCTR) 

I = IP1 
CONTINUE 

HOT ( M)=HDT ( M)+FCTR*HD 

APH(M)=APH( M)+FCTR*PH 

ATH!M)=ATH( M) *FCTR<‘T HT 

CONTINUE 

00 660 M=1,NR 

HOOT ( M » JAI=HDT ! M) 

PHI (M,JA)=APH(M> 

THET (M,JA)=ATH(M) 

CONTINUE 

IFUT3.EQ.1000I GO TO 10 

IFiNPRNT.LT. 2) GO TO 4 

CONTINUE 

WRITE (6,241 

FORMAT ( 5H0HDQT// ) 

WRITE (6 ,291 ( (HOOT ( 1 , J I , J=1 ,NA) , 1=1 ,NRJ 
FORMAT! 1Q( IX • E 12 • 5 ) ,/) 

WR ITE (6 ,22 ) 

FORMAT ( 4H0PHI //) 

WR ITE (6, 29 )( (PHI ( I , J ) , J= 1 ,NA ) , 1*1 , NRI 

WRITE (6,23 1 

FORMAT (6H0THETA//I 

WRITE (6,2911 (THETA( I,JI,J-1,NA),I S 1, NR) 

WRITE (6,28) 

FORMAT ( 5H0THET//I 

WRITE (6,29) ((THETi 1, J ) , J=1 ,NA ) , 1*1 , NR ) 

FORMAT (2( /) ,55X,10HCSI VALUES) 

WRITECNOUT ,2935) 

WRITE(NOUT ,938) (( 1 1 *JJ,CSI ( 1 1 , JJ ) , 1 1*1, MAXMO ) , J 1, N A I 

FORMAT ( 6( 2I3,F10.5> ) 

IF l IT3 — 1000 ) 890,7 50, 750 
CONTINUE 

FQRMAT(1X»5E2Q.7I 


NA0VT0=20 
NRNRA=19 
WRITE (6,8993) 

CALL HARMN1 NM,NAP1 , OSI 
WRITE (6,8994) 

CALL HARMN (NM,NAP1,0SI 
WR I TE ( 6, 8995 ) 

CALL HARMN (NM,NAP1,0SI 
WRI TE 1 6,8996) 

CALL HARMN! NM,NAP1, OSI 
WRITE16, 8997 ) 

CALL HARMN! NM,NAP1,DSI 
WRITE (6,8998 ) 


, VDOT ,6 , NMAS ,NA0VT0,NRNRA) 
,WDOT ,6, NMAS , NAOVTO, NRNR A I 
,PHIV ,6, NMAS, NAOVTO, NRNRA) 
»PHI OT ,6 , NMAS , NAOVTO, NRNR A ) 
,SI , 6, NMAS, NACVTO, NRNRA) 
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8991 

8992 

8993 

8994 

8995 

8996 

8997 

8998 

8999 

890 


CALL HARMN! NMf NAP l f DSI »SIDT » 6 , NMASt NAOVTOf NRNRA ) 
WRITE (6 f 8999 ) 

CALL HAR MN(NM,NAP1,DSI f THETA t6 «NHAS • NACVTO* NRNRA ) 
WRITE (6,8991) 

CALL HARMN!NM,NAPlfOSI,VX .6, NMASt NAOVTOf NRNRA ) 
WRITE ( 6, 8992 ) 

CALL HARKNINHyNAPLf OS I fWX *6f NMASf N AO VTO, NRNRA ) 

FORMAT! /57X, 2 1HFLAT WISE DISPLACEMENT) 

FORMAT I /57X»22HCH0RDW I SE 0 I SPLACEMENT ) 

FORMAT C/57X,17HFLAT WISE VELOCITY) 

FORMAT I /57X , 18HCHOROWI SE VELOCITY) 


FORMAT I /57X,26HT0RS ION AL 
FORMAT </57X,33HT0RSICNAL 
FORMAT! /57X , 23HCH0RDWI SE 
FORMAT 1/57X , 36HCH0R0W I SE 
FORMAT! /57X.35HFLATWISE 
NAP 1=NA + 1 


DEFLECTION ANGLE) 

OEFLECT ION ANGULAR RATE) 
BENDING-SLOPE) 

BENDING-SLOPE ANGULAR RATE) 
BENDING-SLOPE ANGULAR RATE) 


NR=SNR 

RETURN 

END 
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SUBROUTINE SHEAR 

DIMENSI ON H00T(4,18),PHI(4, 18 ) , THET( 4, 1 8) , FX( 4, 18) ,FZ( 4 , l 8) , 
IEMO(4, 18) 

DIMENSION EIZI20) 

DIMENSION VDOT (20,19), MOOT 120* 19 ) ,PHIOT( 20, 19 ) , S IDT( 20, 191 »CSIDT 
1(6,19) 

DIMENSION F VI 20,19) ,FW ( 20 , 19 ) , EMOME (20,19) ,CSI(6,19) ,CS2DT(6 ,19) 

1 , CH (12,20) , CCP( 19),SSP(19),CCPS(20), SCPS( 20 ) , SUMA( 20 ) ,H(20) ,X(20) , 
2RADI S (20) , PH IV (20,19) , SI (20 , 19 ) ,XCS IDT( 1 , 18 ) ,THET A( 20,19 ) 

DIMENSION CSPH(20) ,CAPHI(20) ,CC( 19) ,SC< 19) ,EX( 19) ,EXMT(19) ,SN(05) , 
1SMLAZ (20) , SMLAX (20 ) , SMLAM( 20 ) , AL AM( 19 ) , SFZ( 19), SFX( 19),SFM( 19), FOR 
2C( 19) 

DIMENSION JM ( 4 ) , JMP1 (4 ) , HDT ( 4) , APH< 4 ) , ATH( 4 ) 

DIMENSION DXMBD4(2122) 

A, ELNTH{ 20 ), EMASI20) , E I X( 20 ) , RB L ( 4 ) , 

IX I NR ( 20 ) , DPHI (20 ),EIY(20),EPS(20),DLZ(20),ZA(20), 

2 YINR(20), OMEGA ( 20) , SI G( 20 ) , BD ( 1 5 ) 

DIMENSION AV ( 20 , 6 ) , AW ( 20 ,6 ) , APH I ( 20 , 6 ) ,A SI (20,6) , 

1 ATHET ( 20,6 ) ,AT( 20,6) ,AMZ( 20 ,6 ) , AVY(20,6), 

2 AMY( 20,6) ,AVZ(20,6) 

EQUIVALENCE ( DXMBD4 ( 1 ) , ELNTH ( 1 ) ) , ( DXMBD4( 21 ) ,EMAS( 1) ) , ( DXMBD4C41 ) , 
IE I X ( 1 ) ) , <0XMBD4(61) ,RBL( 1) ) , ( DXMBD4 ( 70 ) ,X I NR ( 1 ) ) , I DXMBD4 (90 ) , OPH 
21(1) ),(DXMBD4(110),EIY(1)),< DXMBD4( 130) ,EPS( 1) ) , ( DXMBD4{ 1 50) ,DLZ( 
31) ) ,( DXMBD4( 170), ZA (1) ) , ( DXMBD4 ( 190 ),YINR), (DXMBD4(210) , OMEGA ( 

41) ) ,(DXMBD4(69),PSIR), 

4 ( DXMB D4 ( 230 ),SIG(1)),( DXMB04( 250 ) , AV) , ( DXMBD4( 430 ) ,AW) , 
5(DXMBD4(610) ,APHI), ( DXMB04 (790 ) , AS I ( 1 ) ) , ( DXMBD4 (910), ATHET 

6) ,( CXMBD4(1150) ,AT) ,(DXM804( 1330 ) , AMZ ) , ( CXMBD4( 15 10 ) , A VY 

7) , (0XMBD4( 1690) , AMY), ( DXMBD4 ( 1 870 ) , AVZ ) , ( DXMBD4( 2050) ,B 

8D ) , ( 0XMB04( 2065 ) • RMK ) , ( D XMBD4( 2 066 ) , CS AL ) , ( DX MBD4 ( 2067 ) • NM ) , 

9 ( DXMBD4 (2068),XCSIDT) 

COMMON /BLD4X1/ DXMB04 

COMMON /GCQR01/ THETO , CPSQ ,0T, AC , BC , AKL, DT02, R, ONOCP ,CSALT 
COMMON /CONL 1/ ENR, PI02 , XR00T,RAB,NMP1 ,NRP1 ,NAPl 

COMMON / B3/ DS I , I J , KTE ST, AMSNA, AMSNB , EMTA1 , EMTB 1 , ALL l »ALL2 ,ROAI R , 

1 RA1 ,RB1 , ERRSV 

COMMON /BLD4X2/ HOOT , PHI ,THET, FX ,FZ, EMO, NMAS ,NMQJDE, NAPSON.NRi 1 

COMMON / 8LD4X3/ AMU , NA ,NR1 

COMMON /SADI/ FV ,FW , EMOME ,CS I , CS2DT , CH, 

1CCP,SSP,CCPS, SCPS, SUMA ,H , X,RAD IS,PHIV,SI , THETA, CSPH.CAPHI ,CC,SC,EX 

2, EXMT,SN,SMLAZ,SMLAX,SMLAM, ALAM , S FZ , SFX, SFM,FORC, JM, JMP l ,HDT , APH , 
3ATH 

COMMON /SVSNR/ SNR 
COMMON /GARY/ NGOTO 

COMMON /SA02/ VDOT , HOOT , PHI DT, S IDT, CSIDT 

DIMENSION CT (20 , 19) , CMZ ( 20,19), CMY (20,19), CVZ (20,19) ,CVY(20,19) 
EQUIVALENCE ( CT(1 ,1 ) ,FV(1 ,11 ),( CMZ ( 1 , 1 ) ,FW < 1 ,1 ) ), (CMY ( 1 , 1 ), EMOME ( 1 
1,1) ), (CVZ(1, 1) ,VD0T(1, 1) ),<CVY( 1,1) ,HDOT( 1,1) ) 
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COMMON /Al/ NBL,NB,NR,NW,NCV,NR2,MAXMC,NIT1 ,NIT2,NIT3 
i »C POHG , IT3 

COMMON /I O/I N.NQUT .IT7.IT8 

COMMON /SHEAR1/ NAOVTO 

NRNRNA=NR*NA 

DO 200 JA=1, NAP1 

DO 200 1=1, NM 

DT=C. 

DMY=0 % 

DMZ=0 % 

DVY=0. 

DVZ=0. 

DO 100 K =1 , MAXMO 
CSIX=CSI (K»JA) 

DT=DT+AT ( I , K ) *CS IX 
DMZ=DMZ+AMZ( I , K ) *CS I X 
DMY=DMY+AMY< I ,K)*CSIX 
DVZ=DVZ+AVZ( l,KI*CSIX 
D VY=D V Y+AVY ( I » K) *C SI X 
100 CONTINUE 

CT ( I , JA ) =DT 
CMZ ( I * J A ) =DMZ 
CMY( I,JA)=DMY 
CVZ(I»JA)=DVZ 
CVY( I * JA 1=0 VY 
200 CONTINUE 
NSAVE=NA 
NA0VT0=20 
NRNPNA=19 

CALL HARMN < NM,NA ,0 SI ,CT , 1 ,NMAS,NAOVTG, NRNRNA) 

WRITE (6,900) 

900 FORMAT (/// ,56X, 19HRA0 IAL VS AZIMUTHAL) 

WRITE (6,901) ( (CT( I , J ) » J= 1 » NA ) ,1 = 1, NM) 

901 FORMAT (/// ( 8E 14.6 ) ) 

CALL HARMN ( NM, NA ,DSI , CMZ ,2 , NMAS .NAOVTO, NRNRNA ) 

WRITE (6,900) 

WRITE (6,901) ( (CMZU, JI,J=1,NA) , 1 = 1, NM) 

CALL HARMN ( NM, NA.DSI ,CMY, 4 , NMAS .NAOVTO, NRNRNA ) 

WRITE (6,900) 

WRITE (6,901) ( (CMY( I, J) ,J=1 ,NA) ,1 = 1, NM) 

CALL HARMN ( NM,NA,OSI ,CVZ, 5, NMAS, NAOVTO, NRNRNA) 

WRITE (6,900) 

WRITE (6,901) ((CVZ(I.J) ,J=1,NA),I = 1,NM) 

CALL HARMN (NM,NA,DSI ,CVY, 3, NMAS, NAOVTO, NRNRNA) 

WRITE (6,900) 

WRITE (6,901) ((CVYII.J) * J=1 ,NA) » 1 = 1 » NM ) 

NA=NS AVE 

RETURN 

END 
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SUBROUTINE RSPZZ 
C 

DIMENSION RCAP45) 

DIMENSION ZWK(5,18) 

DIMENSION VX420,19) ,NX(20,19) 

DIMENSION HOOK 04, 1 8) , PHI( 04,18 1 , THET( 04, 181 ,FX( 04, 18) ,FZ( 04,18) , 
1EM04C4,18) 

DIMENSION EIZI20) 

DIMENSION VD0T(20,19),WD0T( 20,19) .PHIDT420, 19) ,SIDT(20,I9) ,CSIOT 
1(06,19) 

DIMENSION FV4 20, 19),FH(20,19), EMOME (20,19) ,CSI(06,I9) ,CS2DT(06,19) 
1,CH(I2,20) , CCP( L9),SSP(19),CCPS(20), SCP S( 20), SUMAC 20) ,H(20) ,X(20I , 
2 RADI S ( 2 0) , PHI V (20,19) ,SI(20,19) , XCS IDT( 1,18) ,THET A(20, 19) 

DIMENSION CSPHI20) ,CAPHI(20) ,CC(19) ,SC( 19) ,EX( 19) ,EXMT(19) , SN(05) , 
1SMLAZ120), SMLAX (20 ),SMLAM(20) , ALAMC 19),SFZ( 19 ), SFX( 19) , SFMC 19), FOR 
2C( 19) 

DIMENSION KM(05 ) ,KMP1( 05 ) 

DIMENSION JM(04) , JMP1 ( 04 ) , HDT ( 04 ) , APH ( 04 ) , ATH ( 04 ) 

C 

DIMENSION DXMBD4(2122 ) 

DIMENSION ELNTHC20) ,EMAS(20),EIX(20), RBLC04), 

1 XINR(20),DPHI(20),EIY(20) ,EPS( 20) ,DLZ(20) , ZAC 2 0) , 

2 YINR(20)«0MEGA(20),SIG(20),BD(15) 

C 

DIMENSION AVI 20,06) , AW( 20,06 ) , APHI ( 20 , 06 ) ,ASI (20,06) , 

1 ATH£T(20,06),AT(20,06),AMZ( 20 ,06 )»AVY(20,06), 

2 AMY( 20,06) ,AVZ(20,06) 

C 

EQUIVALENCE (DXMBD4(1) , ELNT H ( 1 ) ) , ( DXMBD4 (21 ),EMAS(I) ),( DXMBD41 41 ) , 
1EIX ( I) ),(0XMBD4(61) , RBL (1) ) , ( DXMBD4 ( 70 ) , XI NR ( l ) ) , ( DXMBD4 (90 ) , DPH 
21(1) ),( DXMBD4(110),EIY ( 1) ), (0XMBD4I 130),EPS( 1 ) ) , ( DXMBD4( 150) ,DLZ ( 
31) ) , ( QXMBQ4 ( 170) , ZA (l )) , ( DXMBD4 ( 190 ) ,Y I NR ( 1 ) ) , 4 DXMBD4C 2 10 ) , OMEGA ( 
41)),(DXMBD4( 69) , P S IR ), 

4 (DXMBD4(230) , S I G ( 1 ) ) , ( DX MBD4 ( 250 ) , AV ( 1 ) ) , ( DXM8D4( 430) , AW ( 1) ) 

5, 

5 ( DXMBD4 ( 610) »APHI ( 1 ) ) ,( DXMBD4 (790) ,ASI 4 1 ) ) , ( DXMBD4 ( 970),ATHET(l 
6) ) , ( 0XMBD4C 1 150) , AT ( 1 ) ) , ( DXMBD4 ( 1330 ) , AMZ ( 1 ) ) , ( DXMBD4( 1510),AVY 
7(1 ) ) ,(DXMBD4( 1690) , AMY (1) ) , ( 0XMBD44 1870) ,AVZ (1 ) ) , ( DXMBD4 (2050 ) ,B 
8D (1) ),(DXMBD4(2065),RWK ) , ( DXMBD4( 2066 ) ,CSAL ) , ( DXMBD4( 2067) ,NM ) 
8, 

940XMB04(2068),XCSIDT( 1,1) ) 

C 

COMMON /BLD4X1/ 0XMBD4 
C 

COMMON /GC0RD1/ THETO, CPSQ, DT, AC, BC , AKL, DT02 ,R, ONOCP ,CSALT 
COMMON /CONL 1/ ENR , P 102 , XROOT,RAB, NMPi ,NRPi ,N API 
COMMON /Al/ NBL,NB,NR,NW,NCV,NR2,MAXM0,NIT1,NIT2,NIT3 
1 , CPOMG, IT3 

COMMON /IO/IN,NOUT,IT7,IT8 

COMMON /B3/ OS I , I J , KTE ST , AMSNA , AMSNB , EMTA1, EMTB 1 , ALLl ,ALL2 , ROAIR , 
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o o o non 


1 RA1,RB 1, ERRSV 

COMMON /8LD4X2/ HOOT, PHI ,THET, FX,FZ, EMO,NMAS*NMODE,NAPSON,NRll 
COMMON /BLD4X3/ AMU »NA ,NR1 
COMMON /SADI/ FV , FW, EMOMEtC SI .CS2DT ,CH , 
lCCP,SSP,CCPS,SCPS,SUMA,H,X,RADIS,PHIV,SI,THETA*CSPH,CAPHl,CCt$CtEX 
2f EXMT f SN, SMLAZ , SMLAX, SMLAM , ALAM , SFZ ,SFX ,SFM ,FORC » JM» JMP1 , HOT • APH» 
3ATH 

COMMON /SVSNR/ SNR 
COMMON /GARY/ NGOTO 

COMMON /SAD2/ VDOT, WOOT,PHIOT, S IDTtCSIDT 
COMMON /SAD6/ VX,WX 


COMPUTE Z S FOR CASE 12 HAKE AND LOADS RUNS 
4 READ ( 5 « 9990 ) ( RCAP { I ) ,I=1,NRP1) 

9990 FORMAT I8F10-9) 


DO 61C 1=1, NM 
X(I)=XROOT 
DO 610 J=1,I 
610 X( I )=X( I)+ELNTH( J) 

MJ=i 

DO 625 I=1,NRP1 
RRBL=RCAP( I ) 

M=MJ 

DQ 620 J=M,NM 
MJ = J 

IF (X(J).LT.RRBL) GO TO 620 
K=J 

IF (K.EQ.l) K=K+1 
KM( I)=K-1 
KMP1 ( I >=K 
GO TO 625 
620 CONTINUE 
KMI I ) =NM-1 
KMP1 ( I ) =NM 
625 CONTINUE 

00 7C0 JA=1 , NA 
DQ 650 M=l» NRP1 
RRBL=RCAP (M) 

IF ( KM CM ) ) 630,650,630 
630 I=KM(MJ 

1 P 1=KMP 1 ( M > 

FCTR=tRRBL-X( l) )/(X ( IPl)-X(I)) 
DO 640 11=1,2 
FD=-VX( I, JA) 

GO TO (637,6451,11 
637 HOT(MJ=HD*< l.-FCTR) 
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X= IP 1 

640 CONTINUE 

645 HDT(M)=HDT(M)+FCTR*HD 
650 CONTINUE 

00 660 M=1,NRP1 
660 ZWK(M, JA)=HDTiM)/R 
700 CONTINUE 

WRITEI6,24» 

24 FORMAT ( 5H0ZWK •//) 

WR I TE ( 3 » 29 ) ( 1 ZWK (I»JI»I=1»NRP1)»J=1*NA) 
WRITE (6,30) ( ( ZWK ( I » J I • 1= 1 .NRP 1) • J= L.NA ) 
29 FORMAT ( 29X.F10.7) 

30 FORMAT (IX,8EI6.71 
3 CONTINUE 
RETURN 
END 


Machine Compatibility 

The Blade Loads Program has been run on the 
University of Rochester's IBM 360/65 under MVT Release 
18, General Computer Corporation's CDC 6600 under Scope 
3.2, and NASA-Langley ' s CDC 6600 under Scope 3.2, The 
program is standard FORTRAN IV and is also WATFIV 
compatible . 



Recommended CDC 6600 Overlay Statements: 

Mainline : 

OVERLAY (BLADES ,0,0) 

PROGRAM BLD34 (INPUT, OUTPUT, BDSTRT , BDGAM, BDSIG , PUNCH, 
TAPE2=BDSTRT , TAPE5=INPUT, TAPE6=OUTPUT , 

TAPE7=BDGAM, TAPE8=BDSIG, ,TAPE3=PUNCH) 

2004 CALL OVERLAY (6LBLADES, 1,0, 6 HRECALL) replaces 
2004 CALL BLD3 

CALL OVERLAY (6LBLADES, 2, 0,6 HRECALL) replaces 
CALL BLD4 

Subroutine BLD3 : 

OVERALY (BLADES ,1,0) 

PROGRAM BLD3 

Subroutine BLD4 : 

OVERLAY (BLADES ,2,0) 

PROGRAM BLD4 

CALL OVERLAY (6LBLADES, 2,1, 6HRECALL) replaces CALL CONVL 
CALL OVERLAY (6LBLADES, 2,2, 6HRECALL) replaces CALL GCOORD 
CALL OVERLAY ( 6LBLADES ,2,3, 6HRECALL) replaces CALL RSPNS 
CALL OVERLAY (6LBLADES ,2,4, 6 HRECALL) replaces CALL SHEAR 
' IF (NPCH . EQ . 1 ) CALL OVERLAY (6HBLADES , 2 , 5 , 6HRECALL) 
replaces IF (NPCH.EQ . 1) CALL RSPZZ 

Subroutine CONVL: 

OVERLAY (BLADES ,2,1) 

PROGRAM CONVL 

Subroutine GCOORD: 

OVERLAY (BLADES ,2,2) 

PROGRAM' GCOORD 

Subroutine RSPNS : 

OVERLAY (BLADES ,2,3) 

PROGRAM RSPNS 

Subroutine SHEAR: 

OVERLAY (BLADES ,2,4) 

PROGRAM SHEAR 

Subroutine RSPZZ 

OVERLAY (BLADES ,2,5) 

PROGRAM RSPZZ 


NASA-LangJey, 1971 1 CR-1912 


147 


